J 



EuropMisches Patentamt , s 

® /IjII European Patent Office 0 Publication number: 0 275 826 ; 

A1 



Office europeen des brevets 



@ EUROPEAN PATENT APPLICATION 

© Application number: 87810739.0 ® Int. CL^: G05B 19/00 , G01 N 35/00 , 

G01N 1/28 

@ Date of filing: 10.12.87 



® Priority: 16.12,86 US 942196 
09.07.87 US 71698 

@ Date of publication of application: 
27.07.88 Bulletin 88/30 

® Designated Contracting States: 
BE CH DE FR GB U NL 



© Applicant: CIBA-GEIGY AG 
Klybeci(strasse 141 
CH-4002 Basel(CH) 

@ Inventor: Nau, Vance J. 
22404 Riverside Drive 
Cupertino California 9501 4(US) 
Inventor: Grant, Keith H. 
6230 E Joaquin Muerieta Avenue 
Newaric California 94560(US) 

0 Representative: DIpl.-lng. Schiwabe, Dr. Or. 
Sandmair, Dr. Marx 
Stuntzstrasse 16 Postfacli 86 02 45 
D-8000 MUnchen 86<DE) 



@ Control system for a sample preparation system. 



© There is disclosed herein a system for control- 
ling an electromechanical system comprised of a 
number of electromechanical devices (e.g., 30. 32. 
34, 36. 38. 40, etc.) such as solenoid operated 
valves, motor, relays and other devices. The control 
system is comprised of a central processing unit 
(20) and control software plus suitable interface cir- 
cuitry to convert the digital data from the central 
processing unit into suitable control signals to op- 
erate the electromechanical devices. The control 
software allows users to either select preprogram- 
^med sequences of commands to be executed by the 
^computer or to program unique sequence at either of 
^two levels of complexity. User access privileges may 
defined by the system manager such that certain 
00 users may not be allowed to program their own 
1^ sequences, while other users may be allowed to 
1^ program their own sequences only on the first level 
fSof complexity but not the second, while a third group 
^of users may be allowed to program on either of the 
programming levels or to run the preprogrammed 
P4 sequence as defined by the system manager. The 



the high level consists of a plurality of commands 
each of which represents a macro. A macro is a 
collection of more detailed commands from the ex- 
pert level each of which represents a single opera- 
tion to be performed or a very small group of oper- 
ations by the electromechanical devices being con- 
trolled. Collections of these commands from the 
expert level are then put together in prearranged 
sequences to define predetermined functions of the 
system which may be performed by the single high 
level command representing that macro. The com- 
mand set on the expert level is therefore comprised 
of commands which define single operation such as 
valve openings and closures or relay openings or 
closures or the turning on of a motor or the turning 
off of a motor. 



two levels of programming complexity are a high 
level and an expert level where the command set on 
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CONTROL SYSTEM FOR A SAMPLE PREPARATION SYSTEM 



Background of the Invention 

The invention pertains to the field of sample 
preparation systems, and more particularly, to the 
field of control systems for automated sample 
preparation systems. 

In many industrial production facilities and lat> 
oratories, there is a need to assay sample chemi- 
cals being prepared, analyzed or otherwise pro- 
cessed. Such samples can come in many different 
forms. For example, they may be solid, liquid, two 
phase liquid or liquid-solid, and may or may not be 
highly viscous. Many types of assay systems re- 
quire liquid samples of known viscosity and con- 
centration. An example would be a liquid 
chromatography system. 

Obviously, there is a need for systems which 
can prepare many different types of samples for 
assay by such machines. Preferably such systems 
are automatic in the sense that after the user 
defines the type of sample preparation needed, the 
system automatically carries out this processing on 
samples until told to stop or until the sample prep- 
aration runs out of samples. 

Because of the many different types of sample 
formats and because of the many different types of 
sample preparation processes which exist for var- 
ious types of assays, there is a need for flexibility 
and programmability in a control system for an 
automated sample preparation system. The user 
must be provided the facility with which the particu- 
lar types of samples he or she intends to process 
may be prepared in a process for which the steps 
and sequence of steps are defined by the user. In 
this way the user can tailor the automatic sample 
preparation system for use in the environment pe- 
culiar to that particular user. 

Prior art automatic sample preparation systems 
exist in the form of robots. One particular type of 
robot of which* the applicants are aware is a robot 
manufactured by Zymark. These robots may be 
programmed to emulate all the movements a hu- 
man being would make In doing a sample prepara- 
tion process manually. Unfortunately, such systems 
are complicated and expensive and difficult to use 
because of the complexity of the mechanical ma- 
chinery and control computers and software need- 
ed. Thus, a need has arisen for a control system 
for a sample preparation system which Is flexible.' 
programmable, easy to use, and relatively inexpen- 
sive to manufacture. 



Summary of the Invention 

In accordance with the teachings of the invent 
tion, there is provided a control system for a sam- 

5 pie prepara tion system to fully automate the sys- 
tem and allow users to program their own sample 
preparation procedures or to use preprogrammed 
procedures. Further, the control system allows a 
user acting as a system manager to define the 

TO necessary sample preparation procedures for var- 
ious types of samples likely to be encountered. 
Then the system manager may lock out users 
without system manager privileges to prevent them 
from altering the procedures while allowing such 

75 users to use the procedures programmed for them 
by the system manager. 

The control system of the invention allows user 
interaction with the system at three levels. At the 
first level, users may only give the sample iden- 

20 tification (in embodiments with no bar code read- 
er), the sample weight, the user initials, the date 
and time, the lot number to run. and the method of 
sample preparation to be followed. These methods 
of sample preparation will have been programmed 

25 into nonvolatile memory before the control system 
is obtained by the user or will have been previously 
programmed in by the system manager. 

The next level of user interaction is a high level 
language level. At this level, the user has various 

30 high level sample preparation system control com- 
mands at his disposal. iSuch commands include fill, 
mix, isolate, flush, dilute, inject, wash. etc. Each of 
these commands represents a predetermined se- 
quence of events which wilt be caused by the 

35 control system to happen in the sample preparation 
system when the particular command is executed 
in the course of performing a sample preparation 
procedure. The user at this level may string a 
series of such high level commands together into a 

40 sample preparation procedure and give it a name. 
Upon selection of a high level command, the con- 
trol system would prompt the programmer for any 
necessary variables or parameters, such as solvent 
selection, volumes, flow rates, mixing times, etc. 

45 Thereafter, by identifying the particular procedure 
the user wishes to run, the same sequences of 
events may be caused to occur in the sample 
preparation system of the invention. Some of the 
high level commands have parameters which are 

50 accessible to the user and may be set to accom- 
modate the particular needs of the user. These 
parameters allow the user to control, for example, 
the amount of time a mixing step is carried out and 
the level of energy that is input to the mixer by the 
homogenizer. • ■ " " " • ' ^ ■ ■> 
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The key to breaking up sample preparation 
procedures into a series of standard preparation 
steps, which can be chained or re-chained together 
in any useful sequence the user needs to accom- 
plish his desired sample preparation procedure, is 
to design the hardware and software control logic 
to allow each standard preparation step and each 
programmed series od standard preparation steps 
to be completely independent of the preceding or 
following step or series of steps. For example, 
upon completion of a dilution sequence or cup 
wash cycle, the diluent or wash solvent from a pnor 
dilution or rinse should not be left in the instrument 
connecting tubings or modules. If there is such 
leftover solvent eto. it may inadvertently contami- 
nate the ne>ct dilution or wash with the wrong or an 
undesired solvent If this undesired solvent could 
not be removed from all tubings and connections 
prior to the next step or sequence of steps the 
next step would be restricted to using a solvent 
deemed compatable with the undesired solvent and 
thereby place undesired restrictions on the next 
step 

At the most detailed level, the control system 
according to the invention provides the user access 
to and programmability for elemental operations of 
the type that are combined into the sequences 
which make up each high level command. Such 
elemental operations control individual events in 
the system such as the opening and closing of a 
particular valve, the turning on of the homogenizer. 
setting of the power level of the homogenizer. eto. 
The user may program the system at this level by 
stringing names. These sequences may be thought 
of as user definable high level commands, or 
-macros." The user may string any number of 
macros together to form a procedure which may 
then be labelled and executed by refemng to, it by 
its name. 



Brief Description of ttje Drawings 

Rgure 1 is block diagram of the hardware of 
the control system and the system electromechan- 
ical devices which are read and controlled by the 
control system. ^ 

Figure 2 is a schematic diagram of a typical 
sample preparation system which may be con- 
trolled by the control system of the invention. 

Figure 3 is a schematic diagram of another 
embodiment of a sample preparation system which 
may be controlled using the control system of the 

invention. ^ ■ 

Rgure 4 is a flow diagram of the overall 

control flow of the control system software. 

Figure 5 is a flow diagram of the >anous 

routines of the control system of the invention. . . 



Rgure 6 is a flow diagram of the create, 
modify and delete routine of the control system of 
the invention that the allows a "S^r to create new 
sequences of commands at either of two levels of 
5 detail and complexity. 

n^teiled Descriptiori of the Pr^terred Embodiment 

,0 Figure 1 is a block diagram of the electronics 
of the control system in accordance with the teach- 
ings of the invention. The control system is cen- 
tered around a CPU 20 which could be a micropro- 
cessor, personal computer, minicomputer, or main- 
,s frame. Included within the CPU block is RAM 
memory for storing programs and data while the 
computer is running; Mass storage of data, pro- 
grams, and other information such as data bases 
macros, user defined parameters, user defined 
20 sample processing routines, ete.. is I^f o""^^ by 
mass storage unit 22. This unit could be a diisk 
drive tepe transport, bubble memory, or any other 
bulk storage device with sufficient access speed 
and stor age capacity for the particular application 
25 'involved. The user controls the computer 20 
through a terminal comprised of keyboard 24 and 
any type of display 26. 

The computer 20 is coupled to the vanous 
operating units in the sample preparation system 
30 by bus 28. This bus 28 is actually comprised of the 
address, date, and control signal lines of the com- 
puter 20. "The bus is coupled to the ports for 
addresses, data, and control signals such as 
readMrite. intermpt. ready, etc. on the various dn- 
35 vers and interfaces to the various functional ele- 
ments of the system. A more complete description 
of the sample preparation system for which the 
control system is intended to be used with is given 
in the following U.S. patent applications: ^ 
40 -System for Preparation of Samples for Analysis 
by Nau. Metzger. Orimm. Nohl. serial number 
942197 filed 12'16/86 and "Sample Preparation 
Chamber with Mixer/Grinder and Sample Aliquot 
isolation" by Nau. Metzger.. Grimm. Andre, and 
45 Nohl. serial number 942.198; filed 12/1 6«6. both of 
which are hereby incorporated by reference. 

Because the sampte preparation system is in- 
tended for use in applications where either the 
samples will be brought into the system in cups or 
50 other containers with bar codes thereon or pumped 
into the cup Ifirough a 6-way valve, a bar code 
reader 30 is provided. This allows sample iden- 
tification data such as lot number arid bateh num- 
ber or other types of information pertaining to the 
55 incoming samples to be read from, bar codes on 
the sample containers. This information may then 
■ be read by the computer 20 and stored in the 
mass storage unit 22 for later correlation with the 
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test results for that group of samples. Bar code 
readers are known and systems for moving sample 
containers by bar code readers so that the bar 
codes may be read are also known. 

In the preferred embodiment, a network inter* 
face controller 32 is provided to allow other com- 
puters and units on a network in the user facility 
such as terminals in the offices of scientists to 
offices, program the system or inquire as to the 
status of a particular sample preparation routine. 
Further, the users may have access to the data 
which resulted from a particular sample run. For 
the network interface, this user can have the sam- 
ple data resulting from the assay of a particular lot 
of sample communicated directly into the data 
based in the other computer. 

A sample loader 34 functions to mechanically 
load samples arriving in containers. The particular 
design of the sample loader is not critical to the 
invention, it may load sample from one or more 
containers brought in by the user such as a tray of 
test tubes into the sample preparation chamber. In 
such a system, the sample from each test tube 
would be loaded into the sample preparation cham- 
ber, homogenized, diluted, and pumped through 
the assay system. At some point in the process, 
the sample would be identified either by the user 
keying in the identification data or by the bar code 
reader 30 reading the bar code on the test tube. 
The analysis data from the assay would then be 
stored in the mass storage unit 22 along with the 
corresponding identification data. The sample load- 
er would then load the sample from the next test 
tube into the sample preparation chamber, and the 
process would be completed for the sample from 
the next text tube. The design of such a sample 
loader is known and a commercially available unit 
which could be programmed to do the job would 
be the PRO/GROUP(tm) automatic assay machine 
available from Cetus Corporation in Emeryville, 
California. In alternative embodiments, the sample 
loader 34 could be any mechanical system which 
could take a cup like that used in the sample 
preparation chamber described in' the patent ap- 
plications incorporated by reference and attach it to 
the cap. Any mechanical arrangement that can load 
a copy from a tray, conveyor belt, or carousel of 
cups into mechanical, sealing engagement with the 
cap of the sample preparation chamber described 
in the patent applications incorporated by reference 
will suffice. In some embodiments, this unit may be 
omitted altogether where sample is pumped in 
from a process stream or injected from a 6- way 
valve coupled to a sample vat The design of 
suitable sample loaders which will suffice to prac- 
tice this aspect of the invention is known. 

There is also provided electronic scales 36 in 
the preferred embodiment These provide the fa- 



cility for weighing of solid samples or samples 
which are too viscous to pump into the sample 
preparation chamber where such samples are 
placed manually in the sample preparation cham- 
5 ber. The purpose of weighing such samples is to 
provide the user with an indication of the amount of 
sample that has been placed in the sample prep- 
aration chamber. This is important because the 
samples will later be diluted with solvents or diluent 

10 to a user defined concentration. In order to do this 
properly, the weight of sample in the sample prep- 
aration chamber prior to addition of the diluent 
must be known. The electronic scales also provide 
an RS232 or parallel interface to the computer 20 

75 via the bus 28 so that the computer 20 may read 
the sample weight directly. The electronic scales 
may be eliminated in some embodiments. Without 
the electronic scales, if the user is dealing with a 
solid sample, the weight of sample placed in the 

20 sample preparation chamber must be keyed in by 
the user through the keyboard 24. A suitable elec- 
tronic scale 36 would be the Mettler AE160 avail- 
able from Mettler in Switzerland. 

A pump interface 38 provides the facility for 

25 the computer 20 to control the reversible pump 
used in the sample preparation chamber. The 
pump nnotor may be a stepper motor or a D.C. 
servo motor with an optical or other type of en- 
coder so that the pump interface circuit 38 can 

30 determine the position of the motor shaft at ail 
times. Any type of motor with sufficient power and 
a system to positively control the pump shaft posi- 
tion or otherwise control the exact volume pumped 
will suffice. The pump interface obviously needs to 

35 be designed to interface between the particular 
type of pump motor and pump chosen and the 
particular type of computer 20 chosen. 

Figure 2 shows one embodiment of a sample 
preparation system with which the control system 

40 of the invention may be used. In this embodiment 
of the sample preparation system, the details of the 
structure and operation of which are as described 
in 'the patent applications incorporated herein by 
reference, two manifolds 39 and 41 are used as 

45 central terminals in what amounts to a fluid switch- 
ing multiplexer. Each manifold is coupled to various 
sources of material or various destinations in the 
system by a plurality of remotely controllable 
valves of which valves 43 and 45 are typical. These 

50 valves are typically solenoid operated or pneumati- 
cally operated . under the control of the computer 
20. The purpose of the valve interface 40 in Figure 
1 is to electrically translate the address, data, and 
control signals on the bus 28 into the proper elec- 

55 trical or pneumatic control signals to cause the 
proper valve in the system to assume the proper 
state. Such interface circuits are well known, for 
either solenoid operated valves or pneumatically 



Operated valves. For. example. In the case of sole- 
noid operated valves, a motor controller chip can 
decode the address on the bus 28 and a data word 
indicating whether the valve is to be opened or 
closed along with an active write signal. All these 
signals define an action desired for a particular 
valve. The address specifies which valve is to be 
operated, and the active write signal indicates when 
the computer 20 is addressing a particular valve. 
The data word defines whether the valve is to be 
opened or closed or which of its multiple states to 
assume in the case of a multistate valve. 

The motor controller chip then activates a par- 
ticular output signal line coupled to a solenoid 
driver such as a relay or a triac in such a manner 
as to cause the desired change in the state of the 
addressed valve. 

In the case of pneumatic valves, the address, 
data and control signals are decoded, as above., 
but the activated output signal from the motor 
controller chip is used to control a pneumatic pres- 
sure source to either apply pneumatic pressure or 
remove it from the particular valve addressed. 

Rgure 3 shows the prefenred embodiment of 
the sample preparation system with which the con- 
trol system In accordance with the teachings of the 
invention is used. The difference between this sam- 
ple preparation system and the sample preparation 
system of Rgure 2 is that the manifolds 39 and 41 
and the associated valves such as valves 43 and 
45 are replaced with two rotary, multistate valves 
47 and 49. All other details of the system structure 
and operation are as described in the patent ap- 
plications incorporated by reference herein. Each 
of these valves has a central input pipe, pipes 51 
and 53 respectively; which is connected to only 
one of a plural ity' of output ports coupled to 
various sources of material or destinations in the 
system. A stepper motor or D.C. sen/o motor with 
optical encoder is used to drive the valve to its 
various states, laisuch an embodiment the valve 
drivers 40 are the interface circuits needed to con- 
trol the stepper motors or D.C. servo motors. r. 

Integrated circuits for stepper motor control are 
commonly available. These circuits allow the com- 
puter 20 to send address and data words to the 
stepper motor controllers after enabling the chip 
with a proper chip,select signal. The address sig- 
nals indicate which of the two rotary valves Is being 
addressed, and the data words indicate the desired 
state in which the rotary valve is to be placed. 
Typically, these integrated stepper motor control- 
lers have a command set. Typical commands, in- 
clude commands to start and stop the controlled 
motor, commands to control the acceleration and 
deceleration profiles to use. commands to control 
the step number to which the controlled motor^s 
shaft is to be moved, and commands to read the 



particular step at which the controlled motor's shaft 
is currently resident Such chips may be used to 
control the stepper motors used to drive the rotary 
valves 47 and 49. In the preferred embodiment of 
5 the sample preparation system, these rotary valves 
47 and 49 are manufactured by Hamilton Compaoy 
of Reno, Nevada. 

A typical D.C. servo motor which could be 
used to drive the rotary valves 47 and 49 is manu- 
re factured by-Galil Motion Control. Inc. of Mountain 
View, California under the model designation DMC 
100. These servo motors have optical encoders 
which are used to provide feedback as to the shaft 
position to an interface board for the Qalil motor 
IS plus motor controller chips for the other remotely 
controlled valves in the system. 

The RS232 port interface 42 may be a simple 
commercially available UART. The analyzer 48 
may be coupled to the computer 20 through the 
20 RS232 Interface 42. or the network interface 32. 

The mixer 55 in Figures 1 and 2 may be an 
ultrasonic mixer such as is made by Sonic and 
Materials of Danbury, Connecticut under the trade- 
mark VIBRA CELL In alternative embodiments, a 
25 'high speed homogenizer could be used such as 
are made by Brinkman (shroud with a high speed 
rotating shaft therein rotating at 28.000 RPM. there- 
by creating a high shear in the liquid and disinte- 
- grating particles^ therein). These units come with 
30 their own interfaces which may be used for the 
mixer interface 44. The basic control functions 
needed to control the mixer are the time of mixing 
and the power level , which controls the amount of 
turbulence generated in the liquid. The mixer inter- 
35 face will be necessary electronics to interface with 
• the mixer control circuit for the selected mixer. The 
details of how to interface the computer 20 to the 
Interface circuits that come, with the mixers will be 
: apparent to those skilled in the art. A good refer- 
40 ence for interfacing computers such as the com- 
. puter 20 to control external instrumentalities is 
Libes and Garetz,. Interfac ing S-100/1EEE :696 
Microcomputers. :(OsbomeMcGraw.. Hill 1981) 
which is hereby incorporated by reference. An aux- 
45 iliary interface 46 is provided to allow the computer 
20 to control .external instrumentalities such as 
valves, solenoids, etc. which are outside the sam- 
ple preparation system. Typically, this interface will 
be digital, programmable ports such as are com- 
50 monly available in integrated circuit form where the 
. characteristics of the ports may be set by the user, 
Rgure 4 is a high level functional diagram of 
the control program in the computer 20 which 
allows users to program and run their own.se? 
55 quences of events to be performed in the sample 
preparation system under control by the control 
system of the Invisntion. The control program runs 
;:.,v the user- defined sequences by: generating .the 



5 




0 275 



proper control signals to cause the desired se- 
quence of events to occur in said sannple prepara* 
tion system. 

At power up in some embodiments, the system 
will perform a self test to verify the integrity of the 5 
system prior to performing any operations. This is 
symbolized by block 50. Next, the system displays 
a user identification request/sample identification 
request screen as symbolized by blocic 52 
(hereafter references to blocks will be understood io 
to mean reference to those source code computer 
instructions organized as routines and subroutines 
in the control program which perform the function 
indicated in the block referred to). The purpose of 
block 52 is to supply query fields on the terminal ;5 
or display 26 for the user to respond to by filling in 
the requested data via the keyboard 24. The re- 
quested data Is to identify the user, to give various 
data items regarding the sample, to give the date 
and the time and to identify the sequence the user 20 
desires to run. The data items regarding the sam- 
ple to be filled in may include the sample ID, the 
sample weight, and the lot number from which the 
sample came. The user identification number is 
used by the control system to determine the ac- 25 
cess privileges which the user has. 

The control system has three levels of access. 
At the simple level, the user may only run se- 
quences that have been previously programmed by 
the system manager. At the high level, users hav- 30 
ing access privileges at this level may program 
their own sequences of events using commands 
from a high level language command set These 
commands represent predetermined building block 
functions which are necessary to perform sample 35 
preparation. Such building block functions include: 
mix, isolate known sample volume, flush the re- 
maining liquid out of the sample preparation cham- 
ber, release the isolated sample volume, dilute the 
sample volume with a user defined volume of a 40 
user identified solvent, pump the diluted sample to 
the analyzer, etc. At the expert level, users having 
access to this level may program their own 
-macros" using system commands at a more de- 
tailed level than the high level commands identified 4S 
above. These more detailed commands allow the 
user to control the system at a finer level of resolu- 
tion. For example, a typical command may be 
"open valve #1 " or -rotate multiport valve #2 to 
state #3.** Each of the high level commands is so 
comprised of a predetermined sequence of expert 
level commands. 

The identification data entered by the user in 
block 52 via the keyboard 24 is stored on the mass 
storage device 22 in block 54. Next the system, in 55 
block 56, determines the access privileges of the 
user by comparing the user ID to the list of ID - 
numbers supplied by the system manager for each 




level of access. 

Block 5d represents the step of displaying an 
option menu by which the user, by selecting an 
option, may express a request regarding what the 
user wishes the system to do or what the user 
desires to do with the system. Typical menu op^ 
tions include: start, status, method, directory, re- 
port, load, print, system, control, defaults, functions, 
and options. The meaning of these options will be 
explained more below. 

After the user has entered his or her request 
via the keyboard 24. the control system verifies 
that the user has the access privilege necessary to 
perform the function requested in block 60. If so, 
the control system branches to the routine which 
performs the desired function or provides the fa- 
cility requested by the user in block 62. If the user 
does not have the required access privilege, a 
message to that effect is displayed in block 64, and 
processing proceeds to block 58. 

Referring to Rgure 5 there shown a flow chart 
of the various routines which are available for se- 
lection by the user in Step 58 of Figure 4. The first 
routine, symbolized by block 64. is a routine which 
allows the user to create, modify, or delete an 
operation sequence. An operation sequence is a 
collection of commands which are executed by the 
central processing unit in order to generate control 
signals to control the electromechanical devices in 
the system. The control signals cause them to 
perform a physical sequence of events to process 
a sample where the sequence is defined by the 
particular sequence of commands in the program. 
The routine of block 64 allows the user to program 
his own sequences of commands at either of two 
levels of complexity. At a first level of complexity, 
the user may have access to a set of commands 
each of which represents a specified function that 
the system is capable of performing and each of 
which causes a predetermined sequence of events 
to occur in the proper order to cause the physical 
event symbolized by that command. The second 
level of complexity allows the user to have access 
to a set of commands which are very detailed. 
These commands each represent a single action or 
a very small group of actions that one or a very 
small group of electromechanical devices performs. 
Essentially, the commands at tills second level are 
the component commands which are grouped to- 
gether in a predetermined sequence to implement 
one of the commands on tiie. first level. Essentially 
then, the commands on the first level are macros 
which are collections of commands on the second 
level but arranged in a predetermined sequence for 
each particular command on the first level. 

Block 66 is a routine which allows the user to 
print a hard copy of a sequence which has been 
programmed by the user. 
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Block 68 is a routine which allows the user to 
load a predetermined sequence, i.e.. a method of 
sample preparation which has been preprogram- 
med by the system manager. The system manager 
is a user which has access to ail functions of the 
system. That is, the system manager can define 
the access privileges of all the other users on the 
system, and he may program preprogrammed se- 
quences which are available for certain users who 
are not allowed to program their own sequences. 
Block 68 is the routine which the user calls when 
one of these preprogrammed sequences is to be 
loaded. 

Block 70 is a routine which allows the user to 
print a directory of all the methods or sequences 
which are stored in the system and available for 
execution. Block 72 represents a routine which 
allows the user to start the selected sample prep- 
aration routine and which causes the CPU to begin 
generating the control signals which cause the 
physical actions to occur. 

Block 74 represents a routine which displays 
the system status. Block 76 is a routine which 
allows the user to print the system status which is 
displayed in the routine of Block 74. 

Block 78 is a routine which allows the user to 
change the system default parameters. Typically, 
each command on either the first or second pro- 
gramming level will have parameters or arguments 
associated therewith. These arguments are variable 
values which define the specific manner in which 
the command is to be performed. For example, a 
mix command may have as an argument the power 
level at which the mix is to be perfomned, the time 
duration of the mix. and the RPM that the mixer is 
to use. 

The routine represented by block 80 allows the 
user to have access to the various valve and relay 
controls such that the user may open certain valves 
or close certain relays manually by causing the 
CPU to generate the proper command to cause the 
proper operation of the valve, relay or other elec- 
tromechanical device. 

Block 82 represents a routine which allows the 
system manager to create new system functions. 

Block 84 is a routine which allows the user to 
print a report. Such reports may consist of reports 
of user activity, the sequences which have been 
run, the volume of activity for a particular se- 
quence, and so on. Block 86 is a routine which 
allows the user to change the print parameters. 
This routine allows the format of the report to be 
set such as margins, spacing, headers, and other 
types of formatting commands common to 
database report routines. 

Block 88 is a routine which displays for the 
user the system options which have been elected 
and which are operable. 



Block 90 is a routine which allows the user to 
use the print mode of the system for various func- 
tions. 

Block 92 is a routine which allows the system 
5 manager access to certain system functions. 

Refemng to Figure 6 there is shown a more 
detailed flow diagram of the create, modify and 
delete routine of block 67 in Rgure 5. The first step 
when the user elects to program his own sequence 
10 is to inquire whether the user wishes to program on _ 
the first level or on the second level noted above. 
- The first level will be called the high level for 
purposes here, and this level will provide the user 
access to the macro commands. The second level s 
75 will be called the expert level and grants the user 
access to the detailed commands which essentially 
allow the user to define each valve opening and 
closing and each operation of each motor or other 
electromechanical device individually. The levels 
20 are named the high level and the expert level for 
purposes of indicating the relative amounts of skill 
needed to program on these levels. Programming 
at the high level is similar to calling subroutines or 
macros on any computer. Programming on the 
25 ' expert level is similar to programming in source 
code and requires a some programming skill and a 
great deal of knowledge regarding the hardware 
aspects of the system being programmed. 

The process of determining which level the 
30 user wishes to have access to is symbolized by 
step 94. This step also determines the user's ac- 
cess privilege by checking the user's identification 
code and comparing it to a table or other such 
database defined by the system manager which 
35 indicates which users have access to the high level 
command set and which users have access to the 
expert level programming command set. If the user 
elects to program at the high level, the next step is 
symbolized by block 100. In this step, the user is 
40 prompted for a name for the sequence which he is 
about to program. After the sequence has been 
named, step 102 is performed wherein the user ^ 
selects the first high level command which is to be 
executed in the sequence. In some embodiments. 
45 the list of high level commands from which the ^ 
user may choose may be displayed and the user ^ 
may simply choose a command by positioning the 
cursor on the proper command and pressing a 
select key. in other embodiments, the user may be 
50 required to know the high level commands and ' 
select the particular command desired by an acro- 
nym. 

As noted above, most commands have certain 
parameters or arguments. Step 104 represents the 
55 process of prompting the user for parameter values 
for the command selected in step 102. Each com- 
. mand will have default parameters which are set by 
the user in step 78 of Rgure 5. If the user wishes 
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to use the default parameters, he need do nothing 
in step 104. If however, the user wishes to define 
the specific manner In which the particular com- 
mand is to be executed, then the parameters for 
that command may be adjusted in step 104. 

After step 104 .is performed, the control soft- 
ware causes the central processing unit to prompt 
the user to determine if the command just defined 
is the last command in the sequence. This step is 
symbolized by block 106 in Rgure 6. If the user is 
done picking commands, the processing proceeds 
to step 108 where the method is stored in perma- 
nent storage such as on a floppy disk or hard disk. 
Processing then returns to the main menu symbol- 
ized by block 58 in Figure 4. 

If the user is not finished programming, then 
processing proceeds from block 106 to block 110 
where the user is prompted to select the next high 
level command in the sequence. Processing then 
proceeds to block 112 where the parameters for 
the command selected in block 110 are displayed 
and the user is prompted for new values for these 
parameters. If the user responds with new param- 
eters, these are stored with the command as a 
permanent part of the sequence being pro- 
grammed. After step 112 is performed, step 114 is 
performed to again to test for completion of pro- 
gramming. Step 114 represents the process of 
prompting the user to determine if the user is done 
programming. If he is, then processing continues at 
step 108 as described above to store the method. 
If the user is not done programming as determined 
in step 114. then processing returns to step 110 
where the user is prompted to select the next 
command in the sequence. 

Returning again for a moment to step 94 in 
Figure 6, if the user is determined to have no 
access to either the high level or expert level 
programming command sets, then step 94 vectors 
processing to a step 96 wherein a "no access 
privilege for selected level" message is displayed 
on the terminal. Thereafter, in step 98, processing 
is returned to the main menu of step 58 in Figure 
4. 

If the user selects the expert level for program- 
ming, a similar sequence of events occurs starting 
with step 116. There the user is prompted to name* 
the sequence he is about to define. The next step. 
118. prompts the user to select the first expert 
level command to be executed in the sequence. 
Then, in step 120. the user is prompted to select 
new parameters for the expert level command se- 
lected in step 118. Again, the expert level com- 
mands also have default values which may be 
altered by the user in step 120. Step 122 repre- 
sents a test to determine if programming has been 
completed. If it has. then step 108 is performed as 
described above. If programming is not completed. 



processing proceeds to step 124. There the user is 
prompted to select the next expert level command 
and define the paranneters for that command. 

Step 126 represents a test to determine wheth- 

5 er the user is done programming. If he is, then step 
108 is performed and control is returned to tha 
main menu. If the user is not done programming, 
then control returns to step 124 where the user is 
prompted to select the next expert level command. 

10 Appendix A is a listing of the source code for 
the preferred embodiment of the invention. This 
source code runs on an IBM PC running the Forth 
and DOS programs. 

Although the invention has been described in 

rs terms of the preferred and alternative embodiments 
detailed herein, those skilled in the art will appre- 
ciate that many modifications may be made. All 
such modifications are intended to be included 
within the scope of the claims appended hereto. 

20 

Claims 

1. A control system for an apparatus having a 
25 plurality of electromechanical devices controlled by 

said control system, said control system having a 
CPU (20) wherein the improvement comprises soft- 
ware means (Figures 4. 5. 6) for allowing a user to 
cause said CPU to run any of a plurality of fixed 

30 command sequences or to program one or more 
new sequences using commands at any of a plural- 
ity of complexity levels where at least one com- 
plexity level is populated by commands which are 
macro commands in the sense that each is a 

35 concatenations of commands from at least one 
other of said complexity levels. 

2. The apparatus of claim 1 wherein said soft- 
ware means includes means (Figure 6) for allowing 
a user to program sequences at a first level with 

40 macro commands each of which causes a pre- 
determined sequence of events to be performed by 
said electromechanical devices. 

3. The apparatus of claim 2 wherein said soft- 
ware m^ans is also for allowing said user to modify 

45 the parameters of each command from default pa- 
rameters where said parameters characterize some 
physical characteristic of the sequence of physical 
events that will be caused by execution of said 
command by said CPU. 

50 4. The apparatus of claim 3 wherein said soft- 
ware means includeis means for allowing said user 
to program a new sequence of commands to cause 
said electromechanical devices to perform at least 
one physical event where the commands available 

55 to the user are more primitive than the commands 
on said first level in the" sense that each command 
represents a predetermined sequence of events 
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which is less complex than the predetermined se- 
quences of events caused by the commands at 
said first level. 

5. The apparatus of claim 4 wherein said soft- 
ware means includes means for allowing each user 
to be identified by a code and further includes 
means for allowing at least .one user to define the 
access privileges of all the other users and encode 
this access privilege data such that said software 
means can determine from said user identification 
code the access privileges each said user has. 

6. The apparatus of claim 5 wherein said soft- 
ware means includes means to allow a first group 
of users to have access to and to run only said, 
fixed sequences of commands and to allow a sec- 
ond group of users to run any of said fixed se- 
quences of commands or to program a new se- 
quence using only the commands at said first level 
and to allow a third group of users the ability to 
program a new sequence using commands at ei- 
ther of said first level or said second level or to mn 
any of said fixed sequences. 

7. A control system for an apparatus having a 
plurality of electromechanical devices comprising: 

computer means for allowing a user to run 
fixed sequences of commands or sequences of 
commands the user programs himself and for gen- 
erating control signals during the execution of 
these sequences which are coupled to said electro- 
mechanical devices and which cause these devices 
to perform the sequence of physical operations 
defined by the sequence being run; and 

control means for said computer means for 
allowing said user to select and run any of one or 
more fixed sequences of operations or to program 
a new sequence at either of two levels of complex- 
ity. 

8. The control system of claim 7 wherein said 
control means includes means to allow a user to 
program a new sequence using commands on a 
first level each of which represents a specific func- 
tion of the system involving one or more physical .. 
actions of one or more of said electrornecha-nical 
devices or to program a new sequence at a second 
level using commands each of which represents a 
single operation by a single electromechanical de- 
vice. 

9. The control system of. claim 7 wherein said 
control means includes means to program a new 
sequence of operations using commands at either 
of a first level, or commands at a second level 
wherein the commands , at said , first level each 
represent one physical operation by one electro-, 
mechanical device and wherein the commands at 
said second , level each represent a predetermined 
sequence of said conimands at said first level. , 
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10. The control system of claim 9 wherein said 
control means includes means to block access by 
certain users to commands for- programming at 
either said first or second levels or both. 
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• /TO©IX A 

SOFTWARE LISTING INDEX 

«fn;^^?^2' ' 321 324 327 333 348 402 403 

ERRORS & FUNCTIONS 

WINDOWS 354 357 360 363 

FILE SYSTEM 4u 414 4^7 423 

SCREEN SUPPORT 378 381 384 337 370 405 

NORMAL SCREENS 393 379 429 

HELP & HELP SCREENS 426 

EDITOR 5'. EDIT SCREEN 336 339 342 

SNAPSHOT 366 

TASK SUPPORT 438 441 444 

STATUS TASK 447 453 

DEVICE STATUS DISPLAY 462 465 463 471 474 477 

STATUS BACKBROUND 453 456 459 

CONTROL TASK 5OI 504 507 510 

METHOD EXECUTION 513 

DEVICE CONTROL 528 531 534 537 546 549 552 555 553 

CONFIG S< TABLES 561 621 

HELP SCREENS (DATA) 630 633 636 639 



1 



351 



Mration \ 



This block loads the entire Saiple PreparalTon Systet- . 
It loads all other load blocks that wke up the systei. ; 
A Nord called SP (or sp) wll cause this block to be loaded. 

FREP is the taift entry point to the systet, so alter a power up, 
ja«t Ivp* 'SP PEEP* to load and run the systet. KDte that 

• SP Bill perfcre an 8 DRIVE before loadino, so you don't have 
to s»itch drives yourself. 



30 

B \ SAr.PLE 
1 EnPTY 
2 

3 88 

4 33 

5 45 
h 98 



PREPARATION SYSTEM 
: TRUE I ; : FALSE 8 



f °' 

fEH lBaO BLODC 
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Klfll 8 : OECIKAl 



LOAD \ function key execution 

LOAD N screen windows • 

LflnO N key functions 

LOAO \ file systea 

7 U7 LOftC • \ task support 

8 248 LOAD * \ Confiouration tables 

9 l2o UJAO \ status task 
18 188 LOAD \ control task 
U 57 LOAD V screens 

12 81 LOAD \ keycode tables. 

13 B9 LQAO \ Join this with PREP coseand load 

14 87 LOAD \ aaifl coaaand interpreter 
15 



552 
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8 
I 
2 
3 
4 
5 
6 
7 
8 
9 

to 

II 
12 
13 
14 
IS 



3S3 



0 
I 

2 

3 
4 
5 
6 
7 
8 
9 
18 
11 
12 
13 
14 
15 
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B \ TEST 

I 

2 

1 
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The Status task updates the status header Hhen things change. 

The Control task is responsible for executing the user's oethod 
to contrcl the saapU preparation hardhare. It is a 
backgrounQ type tascy Mhicn -aeans that it can not use any 
printing ncrls. Error aessages lust be passed back to the 
User task lor display. 



8 ( Saitple Prep Task definitions ) 
I 

2 ZZZ TEGfilKAL PSTATUS 

3 P3TATUS CONSTRUCT 
4 

5 TcHKIHAL CuNTHOL 

6 CQKTRQl COr^STRUCT 
7 

B : HALT ACTIVATE STOP ; 
9 

18 
il 
12 
13 
14 
15 



V 63B7 PSTATUS 'TYPE KIS ! 
\ 'TAB a PSTATUS 'TAB HIS ! 
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a 
1 

a 

4 
S 
6 
7 
8 
? 
16 
11 
12 
13 
14 
15 



RBUFF-SIZE \ ttKOTEilt HUST be a pnier of 2 
CftEATE RB»JFF RBUFF-SIZE ALLOT PJUFf RBUFF-SIIE EPASE 
VARIABLE MRPTR VARIABLE RCOUKT 

CPIATE SBUFF i ALLOT 

VARIABLE SBCTR VARIABLE SBPTR 

1B432B0. 1 16 W 2C0KSTAHT DIVIDEND 
HEX : SET-HAMILTCH-BAUD 

DIVIDEKD ROT H/ DUP 

B3 3FB OUTPUT 3F8 OUTPUT 

X 3F9 OUTPUT 3 3FB OUTPUT 

3 3F9 OUTPUT QB 3FC OUTPUT 

3F8 INPUT DROP 3FA IKPUT OROP ; DECIMAL 
96BQ SET-HAS1ILTQK-BAUD FQRBcT DIVIDEKD 
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Tftis is the title that shows up in .ORIVES 



a \ SaepU Prep precoipiU load block 

i:4P S*0?.1VE ? vfiilo-s loaHinq other local blocks 



4 le 



\ Pre coepile preliiinaries and general tsoU 
\ Clock and calander «ords for cMp 
\ Set Forth's tiie and date 
\ Control and status task definitions 
\ Interrupt i buffers for Ha*ilton valves 
\ interrupt driven keyboard input buffer 
\ Error hafidUno basics 



5 \ 13 LGAO 

6 \ 12 LOAD 

7 I LOAD 

8 2 ♦? 4 ♦F THRU 

9 5 *f 8 »P THRU 
13 27 ♦? lOfiO 

n 

12 
13 

15 \ Saaole Preoaration System Source Code 



U/2&/6& 
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SKM3K for configurations 



10 



SP loads the sa.?le prep software. Type PPiP to run. - 



tf) run tiae code for r. returns address of cou^^^^^^^ 
f compiles an inline^tring; -ill return it's address. 
lUVSRT returns the ones coipletent » 
This is the title that shows up in .DraVES 



7 
8 

n 

12 
13 
14 
15 



\ Precospile prelioinaries and general tools 

. F2 I SCR SCR a UST ; \ Useful functions; 

: Fl -I SCR SCR 5 LIST 

i F3 HEX / fia • ; 

: F4 BECIHAI / OECIKAL " 1 

HEX IFIF KIDTK 1 0ECm \ 32 Char definitions 

: SP 8 mVE 38 LOAD , X SaepU Prep 
: ASCIK 32 WRO I* W 5 ^ Convert next char to asm co.. 
: BlHARt 2 EASE 1 I 

Ir 'ccHpS Cn 34STR1KS ; irr.£DlATE 
\ IKVERI in — nM HE6ATE I- 5 
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a 
I 

2 



5 
6 
7 
6 

IB 

n 

12 
13 
14 
15 



8 

1 

2 CODE SENCvSER HEI 

3 3F8 f 2 «0V SBPTR « KOV 

4 H ) e HOV (2) OUT S6PTR IHC ' KAIT W 

c 

J 

6 VARIABLE CALLER B CALLER ! 

7 fiSSEHBLEP. BE5IK B PUSH 2 PUSH H PUSH OS fUSKS 
e ZERO € B KOV B OS LS6 

9 3FA f 2 KOV (2) IK 3F8 I 2 «0V < IB B TEST 8» 
16 IF ( output intBrniptl 

11 IS SE6 SBCTR DEC 8» 

12 IF IS SEB CALLER H «DV HAKE I « ) KOV 

13 ELSE IS SEB SBPTR I ICH8 LOOS B 
H IS SEB SBPTR I ZCH£ (2) OUT 

15 THEN 



4 

e 

1 HEX ' 

2 aSE ( input interrupt) (2) IN 

3 IS SEB KRPTR K m 

4 13 SEB 8 PJUFF M) ttOV B 

5 • If INC. RBUFF-SIZE 1- I H AKIr 

6 IS SEB K KRPTR KQV 

7 IS SEB ' RCOUHT IHC THEM 
a OS POPS H POP 2 POP 8 POP 

9 OC INTERRUPT 
18 

U DECIKAL 

12 

13 

14 

15 



3 
1 

2 CREATE KB3UFF 32 AUOT 

3 VARIABLE KBRPTR 

4 VARIABLE KBHPTR 
5 

4 CUBE >KB6UFF KEI 

7 IS SEB mm I KOV I IKC IF I 1 AHD 

8 IS SEB KBRPTR 1 CKP 8» HOT 

9 IF 1 V nOV IS SEB 8 ICBBUFF V) RQV 8 
18 IS SEB 1 KBKPTR NOV 

11 THEK RET 

12 

13 

14 

15 
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1 COCE spascii 



m 



2 
Z 

S 
6 
7 
8 
9 
18 
11 
12 
13 
14 
IS 



1 e nov 

IS SE6 
a M HOV 
8 2 KOV 
IF 

IF 



7F I 8 AHD 

SHIFT B AOO 8 
IS SEB REYS 1- a* « ^Q*'' 8 
28 IB 2 OR fcl«B2CKP 6< KOT 

78 IB 2 CKP 8< 

IS SEB LOCK 3 ICR B THEN 



TKEK 
IF 



88 I 1 AtiO 6- KCT 
B 6 OR 6= IF IS SEB 
ELSE 8 fl OR 8= HOT 
IF 8B IB 8 CHP 6= NOT 
IF IS SEE • >KBBUFF 
IS SEB 28 IB LOCK XQR 
ELSE IS SEB 53 IB SHIFT MOV 
THEK THEH RET 



8 IB SHIFT KOV THEH 



m THEK 



9 

18 
11 
12 
13 
14 
15 



ASSEHBLER BE6IH HH 

8 PUSH 1 PUSH 2 PUSH W PUSH 
IS S^B 8330 I CPEHATGR 5 S^i * TEST BC IF 

IS SEB iSliKE I OPLRATGR 9 KOV THEK 
68 IK BIKCV IS SEB 'KEY STA 9 

86 IB 6 OP. 61 OUT 88 18 8X0?. 
46 IB 1 CHP B* IF « Int 17 ) B7CD , 
» spascii CAa 
2 POP I POP B POP 



M IH 
IS SEB 
IS SEB 
K POP 



61 GUT 



THEH 



89 IMTERRUPT IiECWi^J 
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8 



S^ple Pre? SoUtiar* SKUAgiititios 



KBRPTRSHOV KE«?TR 8 SUB 8 PUSH KEXT 



I 

2 CODE (BKEY?) 
3 
4 

5 1 
6 
7 



BKEH 
PAUSE 



<BKEY?) 



HEX 

J (BUY) 

BEBIK BKEY? UHTIL 
KBRPTR 8 !♦ IF AKB DUP ttBUFF ♦ C8 



SHAP KBFJ^TR 



12 DECIKAL 



13 
14 ' 
15 



(BKEY) 2- • «HY) ! 
EXIT 2- • <KEY) 2* ! 
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4GS2 Bl 

e \ Function Keys - Load Block 
I 

PEIIT stops the other tasks, cleans up, and exits back to FORTH 2 : PEHT 
It should preept the user before exiting. 3 f Exit Systei? (Y/H)' YES? 

4 IF NORRAL WIH2QK0FF PfiEE 

5 COHTROL HALT PAUSE 

6 PSTATUS HALT PAUSE 

7 Qun- 

8 THEH ; 

18 83 LOAD 
11 EXIT 
12 
13 
• 14 
IS 



403 



82 



1 
2 
3 
4 
5 
6 
7 
8 
9 
18 
11 
12 
13 
14 
IS 



404 



63 



FKEYS is the function key execution table used by the tain 
sasple prep routine. Defined function keys have routines 
defined in this table. 



8 

1 
2 

3 
4 

r 
*J 

6 
7 
8 
9 
18 
11 
12 
13 
14 
IS 



\ Function Keys - Sacple Prep function key table 



CREATE FKEYSl 
( 88) * ST/STP 
( 84) 8 



t 88) 
( 6C) 
( 98) 
t 94) 
( 98) 



8 

8 

-Fimc 

8 



PS/CKT 
8 
8 
8 
8 
8 

DESELECT 



• DID 
8 
8 
8 

♦FUMC 
8 

SELECT 



' PEUT 
8 
8 

OESaECT 
SaECT 
8 

SNAPSHOT 



)l0ra converts any alpha key to Iwercase for cotparison nith- 

the function coiiand characters. 
PREP is the iain entry point for the Sample Prep Systei. 

U perforni any re<^;ire4 initialization and then interprets 

single letter cowands iroft the keyboard. 



B7 



e \ Saiple Prep 

1 HEX 

2 : >L08ER ( C — c) 
J OECIKaL 
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Initializatiolj^n Entry Point 



OUP 41 SB MITHIK IF 26 OR THEH 



4 t 
5 
6 
7 

e 
11 

12 
13 
14 
•15 



PP.EP- I — ) 

8 DRIVE bK5 mm mmm 

jmi t'lSTAT.SCR 'SCREEM! 

FKEYSl 'FKEYS 1 
KORKKlKSaS (PftSE) 
CGKTSGL SYSTSn PSTftTUS RUNKIH8 
0 'SCREEK ! STAT-OFF STftTJCR 

BEGIR _ 
BESIH CTL KSB? NEKSTATE? 
KEY -FlfliCTIOH? ?DU? 
IF >LC»ER CKAR>FM THEK 

A6AIK ; 



6KEY? U»TIL 



409 



-FmSCTlOH? checks a keyboard character to see if it is a 
function key, e«ECutino it's routine if it is defined. ^ 
Returns a false if it Has a valid function, true lor the 
character) otherMise. 



88 

e \ Function key execution 

1 HEX 

2 VARIABLE 'FKEYS 

3 : KEYLQAO ( a ~) 

4 19 6 00 1 88 * OVER 

5 3A KEYLQAD 80 KEYLQAD 

6 FQP-GET KEYLQAD 



KEYS ♦ 
99 KEYS C! 



I + CI LOOP DROP ? 
99 KEYS 53 ♦ CI ( esc'n) 



-FUJiCTIGK? ( c — c ! 81 
BiJP 0 F XITHIN IF 80 ♦ THEM 
OLJP SB 9C SITHIK 

IF 38 - 2t 'FKEYS 9 ♦ 8 ?DUP 
IF EXECUTE 8 ELSE 1 
THEK TKES 5 



7 1 
8 
9 
18 
11 
12 

13 DECIKAL 

14 

15 
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410 



8 

I 

2 : CTL KSS? ( - ) 

3 FROr. CGtHROL C3 

4 IF. FPJ)H.COHTROL GET.riSB 

5 ORQP .KS6 

6 THEH ; 
7 

8 
9 
it 
11 
12 
13 
14 
IS 



. •* 



U is the colum offset to the left NindoM ed^e (e.,n). 
yi is the nutDer of lines doiin frot the top (fl..n». 
««IDTH contains the f of chsrs across the Miodo»f. C1..79) 
KHEIGHT is the height of the Mindon in lines' (fl,.2<) 
cm is the absolute screen line I of the cursor. 
C.COL is the absolute screen colum of the cursor. 



CRTSE6 is the screen isftory segtent address 



REVERSE lakes subsequent screen output reverse video. 
KQRflAL restores output to noraal video. 
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e \ Hindoos - Saiple Prep WndoJing for IBM lonochroce screen 
. 1 \ Current wtndoM paraieters 

2 VARIABLE II : na n 9 5 

3 VARIABLE ri : riS Yl 3 ; 

4 VARIABLE KUIDTH s mm KKIDTH. a S 

5 VARIABLE HHEISHT : HElfiHTJ HHE16HT J ; 
0 VARIABLE C.ROU 

7 VARIABLE C COL 



9 U ( BBH) CONSTANT CRISES 
10 

11 HEX : UKCERLIME 188 ATTRIBUTE ! 

12 : INVERSE 7BB3 AHRIBUTE ! 

13 : NORMAL 788 ATTRIBUTE ? 



U 34 44 fp THRU \ Load the rest ol HindoHS 
!5 



OECIHAL 



>S5 



34 



scroll scrolls the current screen nindOH contents up one line. 



4 

5 
h 
7 
8 
9 
IB 



HindoHs - Screen scrolling 



8 
1 

2 CODE scroll ( — ) I POSH 

3 PUSH KillDTH 3 «0V Yl 8 MOV 
XI 8 ADC 8 8 ADD 8 IB 2 KOV 
8 PUSH DISPLAY LDA 8 D5 LS6 



9 M KOV 
REP MOVS 
8* UNTIL 3 
I POP RET 



68 4 K KOV K NUL 
WHEI6HT 2 HI KOV 6 
8 ES LS6 0 POP BE3IN 



16B t 8 ABO a I KGV I PUSH 3 1 KOV 
8 POP I IB 2 ADD MB 2 HI SUB 
POP 8 IS SS6 8 OS LS6 8 ES LS6 



'cursor returns the screen address of the cursor in register II CODE 'cursor 
Multiplies cursor row by 80, adds coluon, and eultiplies by 2. 12 0 PUSH 

13 8 8 ADD 



( 



'a'RSQR is hi^h level access to 'cursor. 



— ) 
88 I H HOV 
8 M KOV 



C.ROX LDA 
8 POP RET 



R nUL C COL 8 ADD 



14 

IS CODE 



'CURSOR { — n ) ' 'cursor CAa N PUSH KcIT 



356 



35 



clesr erases screen sesory pointed to by K with count in 
reg, 1 

BLAKIC3 takes a count and screen address and bUnlcs n chars. 

(cr) puts cursor in colutn 0 of the viewport windOH, and 
advances the cursor line If line t is beyond bottoi of 
the Mindow, it scrolls MindoK contents up 1 line and puts 
cursor on last line. Returns cursor address in M. 

?CR Tests cursor coluin position. H off riqht edge of nindoN, 
it does a carriage return. N is preserved for (type). 



8 \ NindoMS 
1 CODE clear 



REP STOS 
CODE BLANKS 



- Carriage return 

HERE DISPUY LDA 8 ES LS6 
8 IS SS6 0 ES LS6 RET 
I a n — ) 1 POP 0 POP. 



ATTRI8LTE LDA 
(clear) CAU NEXT 



2 
3 

4 • • 

5 CODE (cr) < 

6 n 8 KOV 0 C.COL KOV C.RON IKC Yl 0 KOV MHEIfiHT 8 ADD 
7. C.RQir 0 CKP 8< IF 8 C.ROK KOV MHEIGHT 8 HOV 8 8 OR ' 8> 
8 IF • scroll CAU THEN THEN ' 'cursor CAU H PUSH 



1 

8 C.COL KOV C.RON IKC 



9 KNIOTH 1 HOV 
10 CODE ?CR ( — ) 



11 
12 
13 
U 
IS 



0 PUSH XI LDA 
0< IF 1 PUSH 
IS PUSte • 
1 POP 2 POP 



Tie 0 POP RET 



clear CAa 0 POP RET 

NXIDTH0ADD 0 DEC C COL 8 CKP 
2 PUSH I PUSH ES PU3HS 05 PUSHS 
(cr) CALL IS POPS OS POPS ES POPS 
1 POP 
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am) copies the strin9 pointed to by FTR nith length qiven by 
CTP to the screen wndoK st the cursor position. The cursor 
cl«l is advanced for each char, and 7CR .ill carnage return 
Hhen it points past rioht edge of wndoH. 



\ HindoHS - ttypeJ 

' ^CP CALL LOOS B 5T0S C.CQL IHC 

WOP e usLse i pop «pop heu 



9 

le 

t! 
12 
13 
14 
15 
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e«t puts char fro« stack on screen at cursor. 



UKADR returns the absolute screen, address nf the specified 

window line. 
BLIKE blanks the specified KindoH line. 



OS hlanfes the current «indoH. 
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I \ KindOHS - eeit 

I 

I CODE e«it ( c — 1 « ^« , a ens 

. 'cursor CALL DM U)A ^J^^f'IF 

4 fiHRlBUTEOOR ' ?CR CALL ST05 B IS SdB 

5 BESLS6 KEXT 



LIXASR ( I ~ 5 ) 
YU ♦ SM XU. + 21 
; BLIHE ( 1 — > 

LINftOR «10TW BIM«KS ; 



16 

11 

12 \ 
13 
U 
IS 



US ( — ) 

HEIGHTS !♦ B DO 1 BtlKS LOOP i 
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returns the wndai colum of the cursor. (B.-«dth) . 

4CUIS0R Mves the cursor by signed aiount. H in coluin fl, 
and the myb is negative, it backs up one line. 



I 

■2 s 
3 

4 : 

5 

& 

7 

8 

9 

IB 

II 

12 

13 

14 

IS 



\ «indoHS - cursor wveftent 
CQLUKK ( — col) C.CQL3 113- \ 
♦CURSOR C n — » 

DUP ^{ coLunK b= akd if 

-IC.R0«*1 .IW«OTHa+ C.CQLl 
THEH C.COL ♦1.1 
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• 8 \ Windows - expect 

*expect' is an exact copy froe screen 83 of level 4 listin9. ' 1 CODE expect ( n - n n n) ASSCn&LER 32 I M KOV 

It has to be defined here because the criminal is headerless, 2 1 1 SUB 12 KOV 8 POP 12 IB 8 CHP 8» IF . 

and can't be found fay MORD. (note the vert, bar in front of Z CKT U) DEC 6 8< IF W U) INC B 

CODE expect in the source listino: it cosoiles a headerless 4 ELSE PTR U) DEC C7R Ur DEC -2 11 KOV 

definition) Z SWAP ELSE 2 IB 1 KOV 13 IB 8'CKP 8^ KOT IF 

6 PTR U) U KOV 8< IF ( Fn) 11 SUB 2 IB CKT U) ADO 

7 179*47 i d ADD 8 8 HI ICK6 8 STQ5 32 I M NOV 

8 ELSE STOS B K PTR Ul KOV M 8 XCH6 
? CKT U) INC B CTR U) INC 8> IF 

IB SWAP TKEK S«AP THEH 2 CTR Ul KOV 2 IHC 

U THEN THEH THEN 2 PUSH 1 SAR 1 PUSH K PUSH KEH. 

12 

\Z 

14 

This is the title that is used tor prooraA listinas. 15 \ Saeple Prep Ver 8.1 
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(CR) HiQb level access to (cr). -Perforis carriage return. 

(TAB) floves the cursor position to specified line and colufin. 
Allows only valid MindOH coordinates. 

(TYPE) Kes Ysctcr fcr 'TYPE.- 

(PAGE) vector for 'PAGE. Clears MindOH, hoies cursor,^ 

(EXPECT) is called froe EXPECT in FORTH to get n chars and put 
thei to an address. PTR, CTR, CKT are setup by EXPECT and 
used by 'expect*. Advances cursor position. 



8 \ MindoMS - Screen output for FORTH 

1 CODE (CR) ( — ) ' (cr) CALL KEXT 
2 

3 : (TAB) ( 1 c — ) 

8 HAX KIDTH9 1- HIH XU > C.COL ! 

8 KAX HEI8HT3 NIK YU ^ C.ROH • 
(TYF.E) PAUSE (type) ; 



(PASE) ( — I as .8 8 (TAB) 

(EXPECT) BEGIN 95 etit (KEY) 
expect eiit ♦O^R UNTIL ; 
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These constants define the IBN characters for drawing boxes. 

K!(LIKE draws a horizontal line the width of the window. 
KSIDES draws the left and right window border. 

4SI0ES draws a box around the current screen window. 



DRA^tBOX clears ths current window, draws a border around it« 
and puts the viewport just inside the border. 



3 
4 
5 

7 
8 
9 
18 
11 
12 
13 
14 
15 



\ Mindows - Drawbox 
283 COKSTAKT TO 282 CONSTANT BD 
28S CONSTANT HZ 18& CONSTANT VT 
281 CONSTANT UL 187 CONSTANT UR 
288 CQNSTAMT LL 188 CONSTANT LR 



V u9 and down 't*s 
\ hori, vert bars 
\ upper corners 
\ lower corners 



: HHLINE ( — ) VIDTHB 2- 8 DO HZ EHIT LOOP ; 
: HSIDES ( — ) KEI6HT8 1 DO 

I 8 TAB VT EHIT I UIOTH) 1- TAB VT EHIT 
LOOP ; 
: 4S1DES ( ~ ) 
8 8 TAB ULENIT KKLIHE UR EHIT 
NSIOES HEIGHT) 8 TAB UERIT MiLIHE LR ERIT ; 

: DRAXBDX ( — ) 

as 4SIDE5 I 11 ♦! 1 Yl ♦! -2 NNIDTH fj -2 NHEI6HT 4! j 
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mm stores the windoti paraoeters, clears the Mindott, and 
places the cursor at it's upper left corner. 

BQ/ is the saae as above, but draws a box around the 
specified windoH and ftakes the «indoH 2 characters ssaller 
in both height and. iiidth. 

KQRK The Mork Hindow is the full width screen between the 

status header and the aetiu bar. 
FULL uses the entire screen, 

SELECTIOK is the soall Hindow on the riqht side used for 

seiectino things. 
KIDEDIR is used for full directory listings. 
HcLPSIZE is the help window. 



e 

1 

2 : 

3 

4 

Z : 

h 

7 

B \ 
9 : 
16 : 

11 : 

12 : 

13 : 
U s 
IS 



\ Hindotts - Hindowing 



• 



UlWOtt ( xl yl t3 h — j 
HHEIBHT ! HBIOTH ! Yl ! 

BDX ( xl yl w h — 1 



e B (TAB) 



HindoH Typesi 
BKS 

SELECTIQM 
tflDEDIR 
KELPSllE 
EDITIHS 



8 2 ea 17 

B 6 8a 24 
67 2 13 17 
14 2 hh 17 
B 2 6& 17 
6 2 67 17 



\ use all these as prefixex to 
\ HIHDO« or BOX i.e: 



364 

These constants contain the addresses of the non-windowing 
output routines. Used when disconnecting the wmdOHing 
functions, or writing directly to the screen. 

tmi types chars to the un-«indowsd screen. It duplicates 
the cede fwsad in scr 73 of LeveI 4 listing. 
( 193Q is address of (type) ) 



HAB positions the cursor on the un-windowed screen, 

«LniT prints a char to screen without using windows. 

tSPACE outputs a space directly to the screen. 

tSFACES sends n spaces, 

ICUKt clears the given full screen line. 

BEXPECT expects n chars to addr and echoes to full screen. 



43 

8 \ SindOHS - Full screen output 

1 'TYPE 3 CQOT [TYPE! 'EXPECT 3 CONSTANT tEIrECTl 

2 'PftBE 3 C0W3TAHT tPA6E3 'TAB 3 CQKSTAHT CTABl 

3 'CR 3 CONSTAKT CCR3 

t''VprPTR;iV^ToRB>lF BCTRU)KOV _ 
: I cf Ul T B « «SV ' EXECUTE 1^ ^nP TO KEXT 

? DECtKAL 

UAB ( — 1 CTABr. EXECUTE 5 

JEHIT <c — J 'SI nYPE DROP 5 

XSPACE ( — ) ^2 tEHlT ? • 

SaCES CO- J BEBlH?AHYBHlL£mFE REPEAT ; . 

!eXPECT (an-) 'EXPECT B >R tEXPECTl 'EXPECT 1 
EXPECT R> 'EXPECT I ; 



8 : 

9 : 
IB ; 
11 : 
12 
13 
14 
15 
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«IKfiS8QFr restores FORTH' s screen output routines. 



mmw connects FORTH to the window output 



BlHBOa? displays the current window paraaeters- 
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8 \ Hindows - Sindowino on / off 
I 

2 ! KIHDQ«OFF ( — ) , ,p*gp , 

3 [TYPE3 'TYPE ! tCRJ 'CR ! tTftBi 'TAB ! CPAGE3 PAoE . 

4 CEXPECTl 'EXPECT ! 5 

B 1*1 iPftSEJ 'PfiGE ! VI (OPOT) 'OPECT ! J 

12 aiDTHa . CR HEISHI: * HEIBHR . CR ; 
IS 

Isasl Valve" 14 
IS 
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Ft Current file nuaber; directory index for this file. 
FPTR first block of file. 
8CT Nueber of blocics in file. 
EOF 6 - not end of file. 

(fPOATEO Flag indicates Hhether file hoS iiritten to or not. 
DETAILS Controls directory printing; 6-shcrt i-long foraat 
LOAOERR Kot zero if a file was not found when loading. 
'BAT is the block nusber containing the block allocation table. 
RAXBLKS Kuaber of blocks on disk that the file systet uses. 
ISTBIK The first useable block on an etpty disk. 
BAT3UE is the nuaber of bytes in the block allocation table. 
BAT.BUF'is a buffer to hold the block allocation table Nhen a 
file is cpen« 



e \ SaAple Prep File Systet * Load Block 

1 VARIABLE Ft -I Ft ! 

2 VARIABLE BCT 

3 VARIABLE EOF 

4 VARIABLE UPBATED 

5 VARIABLE DETAILS 

6 VARIABLE LOADERR 

7 8 COKSTAKT/BAT 

8 32B CONSTANT HAXBLKS 

9 4 CQNSTAHT IST6U 

IB ISTBLK 2t CQKSTAKT RESERVED 

11 HAIBUS 2t CGHSTANT BATSIZE 

12 CREATE BAT BUF BATSIZE ALLOT BATJUF 3B ERASE 

13 BAT.BtlF CQKSTAKT FPTR 

14 ?i «P 1Q4 4P THRU \ Load the rest of the file systei 

15 Elir 
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DSLQCK is used to read and write only to drive Q. 
SET.BAT reads the block allocation table froi the disk. 

•mvL^wnt Ml A bca kite yn» tiie uiaik. 

nBAT? Returns the contents of the itfi entry in BAT (a block. 1). 

nBAT( Stores n into the ith entry of BAT. 

INITBAT creates an «ipty block allocation table on the disk. 

nthBLX returns the block I of the nth block of a file, or -U 
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a \ File Systefi * Block Allocation Table 

1 : DBLOCK ( blkt — a) CUP 8 328 WITHIN KOT ABORT' blk error* 

2 OFFSET 9 >R 9 OFFSET * BLOCK R> OFFSET > ; 
3 

4 2 BET BAT ( - 1 •BAT DBLOCK RESERVED ♦ 

5 BATJUr RESERVED ♦ BATSIIE RESERVED - HOVE } 

6 s SAVBJAT ( - 1 BAT^BUF 'BAT DBLOCft BATSIZE KDVE UFuATE ; 

7 * 

8 : nBAT3 ( i — blkt 1 2t BAT.BUF ♦ a j 

9 : nBAT! I n i — ) 21 BAT.BUF ♦ I ' ; 

18 : IKITBAT BAT.BUF BATSIZE ERASE ( BAT.BUF ISTBLK 2t -I FIU ) 

11 SAVE.BAT FLUSH j 

12 CODE nthBU -I I 2 KOV 1 POP • FPTR 8 KOV IKZ IF 

13 BESIK 8 2 CnP 8* IF 1 1 SUB Q.S£ 8 8 ADO ' BAT.BUF f B 
U ADD 8 H nOV V 1 8 HQV 1 DEC THEN 8» UNTIL THEN 

IS 8 PUSH NEXT 



VBir.? abcrts if the block nuaber is invalid. 
FPXEBLK finds the first unallocated block on the disk. It 
aborts if the disk is full. 



EHOBLK larks the given block as the end of file block in the 
BAT. 

ALLOCATE adds the given block to the end of the current file. 



OFJILE deteriines if the given block is already part of the 
current file; returns true if so. 
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0 \ File Systes - Block Allocation 
I 

2 : V8LK? I blkf) -1 KAX8US HITHIN NOT ABORT* bad blkr | 

3 : FREEBLK ( — blkl ) -I WAIBLKS ISTBUC DO 

4 I nBAT9 8^ IF DROP I LEAVE THEN LOOP 

5 DUP a< ABORT* disk full* ; 

6 : PPTR 8 SNAP ?DUP IF 0 DO . nBATS LOOP TtO ; 
. 7 : nALLOCATE 

8 PPTR OUP aBAT9 3 PICK nBAT* nBATl I BCT 

9 SAVE BAT ; : ' . 
IB : nDEALLOCATE 

U PPTR DUP 0BAT9 DUP nBATa -ROT nBAT! 

12 8 SNAP nBAT! -1 BCT M SAVE BAT ; 

13 : OFJILE? ( blkl — t ) )R FPTR 9 BE61N DUP VBLK? 

14 DUP -1 » OVER I " OR NOT KHILE nBAT9 REPEAT R> > 
IS 
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0 \ File Systeo - TestinQ «rt 

FREECST returns the flucber of free blocks left on the 2 : m ^ ^J^^- ^ 

4 . BftT CR • FIL£« • Fn . FPTR 3 . / BCT« 

.SftT prints the block allocation table. ^ • '^^^ ^ ^ g.^Sj2g jyiiP freeckT . free bits' CR ; 

. ! • I INKS CP TPTR 3 BE61H DU? 4 U.R nBAia OUP -l » UKTiL DR9P 

IWS priftts the block nuabers that belong to the current hie. 7 ; Ll^S CR TPTR 

? 
18 
11 
12 
13 
14 
* 15 
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GPcH: aborts if a tile is already open. 
-OPEIl? aborts if a file is not open. ^ . n 

•LATEST returns a pointer to the Qost recently accessed block 8. 
LATEST returns the eost recent block nueber Cwithaut update bitl 
RAGGED teets the updste bit of LATEST. 

'?BP.V returns true if the bkck belongs to drive 6. 

niPMTE is used in place of UPDATE «ben "riting t» a file. It 

allocates a och block to the end of the file if the «niten 

block is net already part of the file. 
rBlOCK reads the nth block relaUve to the beginning of the 

current file. 

FBLOCK is used in place of ELGOC to access a file bloCM 
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6 \ File Systefl - File Block Accessing 

1 : OPEN? Fe 3 1+ B> ABORT' file is openl 

2 : -OPEH? Fd 3 a< ABORT" file not openl" 



HEX 



3 : 'LATEST 

4 : LATEST 

5 : ?rLASBED 

6 BECIKAL 

7 : ?tRV 

B : FUFDATE 
9 : rBLQCK 
IB nthBLK 
U : FBLQCK 

12 IF 

13 ELSE 
14 
15 



( a 1 PREV OUP 3 ♦ 4 ♦ ; 
( — blkS ) aATEST a 7FFF AMD ; 
( ~ ) 'LATEST 3 BBBB AKO !F R> DROP 



THEK 



< — t ) 
( — ) 
( rblk« - 
CBLOOC s 
( rblkft - 
rBLOCK 
DROP REEcLK 



LATEST 328 < ; 
•OPEH? 7FLASSED UPDATE I UPDATED ! 
• a) FPTR 3 8= ABORT- fptr=«' 



1 H3PEK? BHAX DOP BCT 3 - 8< 



OUP BCT 3 nALLQCATE 



OBLOCIC DUP 1824 BLAHK FUPOATE 



THEH 
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KAXFILES is the nusber of files supported by the directory size. 
EKIRYLEK Size of each directory entry. 
»*LEH Kucber of characters in the filenaos. 
•aiR is the firist disk block of the directory. 

BBLKS contains the file block count. Updated at FCLDSE. 
BLKl is the first block of the file. Use BAT to find the rest. 
Creation date 
tioe 

Rodification date 
» tiae 
File attributes 

•EHTRY returns the address of the directory entry for file a. 
IKITIhR initializes a directory. 
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8 \ File Systee - Directory Structure 

1 9& CONSTAST RAXFILES 

2 32 COffiTAKT EKTRYLEH 

3 II CQK3TAHT KHLEH 

4 1 CQH3TAKT 'DIR 

5 I Offsets into directory entry ) 
: 6 CQNSTAHT 6BLKS 
•.7-.13C0MSTAHTBLK1 
-eiSCOKSTAHTCRDATE 

9 17 COHSTAHT CRTIflE 
Ifl 19 COHSTAHT HDATE 
ir'21 COHSTAHT HTIffi 

Is '.^S^Tfr^ a ) EHTRYLEH 1B24 tim 'OIR ^ OBLOCK * 
S ; Sr HAXFILES 8 00 I "EKTRY EKTRYLEH 8 FIU UPDATE LOOP 
IS 
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e \ File Sy5tM - Directory accessing 

1 : SCAKDIR ( 'naie It ) >R -I KAIFILES B Oa 

2 I 'ENTRY HHLEM J HKlEH -MATCH 8= IF 20R0P I LEAVE 

3 ELSE DROP THEN LOOP R> DROP. ; 
4 

6ETEHTRY returns the next etpty directory entry for a neit file. S : GETEflTRY ( — ft ) -1 MAIFILES B 00 J 'EKTRY C9 fl» 



.SCAKDIR takes a pointer to a (ilenaie and searches lor a latch 
to that naae in the directory. H found, it returns a valid 
file nuaber, else it returns *1. 



IF DROP. I LEAVE THEN LOOP 



t ) I* 0> ; 

a ) Fi 3 'EKTRY ; 



FOUKD is used after SCAKDIR to test lor finding a filenate. 6 : FOUND ( ft 
FlLEHTPt returns the address of the directory entry for the file 7 : FILEMTRY ( 

in Ft. 18 
IKITFILE copies the file pointer and block count into user 11 : IHITFILE ( ~ ) FILENTRY OUP IBLKS ♦ 3 BCT ! 
variables and sets the indicator to 'file not lodified*. 12 BUU ♦ 9 FPTR ! 3 UPDATED ! ; 

13 
■M 
IS 
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MAKEFILE constructs the directory' entry lor a nen file. It' 
allocates one block to the new file and sets the tiis and date 
of creation and icdilication. The directory entry will be 
written to the disk. 



FCRHATE Creates a neM file if it doesnt already exist. The 
neit file is opened tot reading/Nriting. It returns 0 iS 
successful!, I if the file already exists, and 2 If the* 
di rector )r is full. 
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a \ File Systen - File creation 

1 ; MAKEFILE ( 'naae ft - ) FREE3LK -I OVER nBAT! SKAP 'ENTRY 

2 DUP >R EKTRYLEH B FILL I BLKl ♦ » I KriLEK MOVE 

3 I I tDLKS ♦ ! 9TIRE OUP 1 CRTIME « ! I NTIKE * ! 

4 TOQAY a OUP I CRDATE * ! I MDATE + ! B R> FTYPE * ! 

5 UPOATE ; 

7 : FCPIATE ( 'naae — t ) 

e OPEN? DUP SCAKOIR FOUHD HOT IF 

9 . GETEKTRY DUP U 8> IF 

18 on RAT SKAP OVER ( fl 'na ftl MAKEFILE 

11 Fl \ IKITFILE I UPDATED ! 8 

12 . ELSE DROP 2 

13 THEM 

14 ELSE DROP I 

15 THEN ; 
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FOPEK opens an existing file for access. It sets Fl to the 
file's directory index, and puts IBUCS into BCT and BLKl into 
FPTR. Returns 8 if successful!, I if file does not exist. 

FaoSE Krites out the open file's nev block count if the file 
has been aodified, and updates the aodlfication date and tiee. 



FOBJTE reaaves the given file froa the directory (by putting a 
e in the first filenaae char)| and releases it's blocks for 
other files to use. 



8 

1 

2 : 
3 
4" 
S 
6 
7 
B 
9 
18 

n 

12 
13 
14 
IS 



\ File SystH - Prograa access to files 



FOPEM I 'naee — t ) 
6ET BAT IKITFILE 



OPEN? SCAKDIR DUP FOUtSD IF 
6 ELSE DROP 1 THEN : 



Fl 



FaOSE ( — ) -OF-EN? UPDATED 9 8> IF SAVE BAT Fllf HTRY 
BCT 9 OVER IBUS 4 \ TODAY 9 OVER KOATE 4 I 9TINE S)(AP 
KTIME 4 ! 8 UPDATED ! UPDATE aUSH THEN -1 Fl ! ; 

FDELETE « 'naae — t ) OPEN? SCAKDIR OUP FOUKD IF 6ETJAT 
. 'ENTRY DUP 8 OVER C! UPDATE BLICl ♦ 9 BE6IX DUP V8UC? 

CUP nBAT9 . 8 ROT nSAT! OUP -1 > UNTIL 

2DR0P 8 SAVE.BAT FLUSH THEN | 



42Q 



HAHE gets the Ulenaoe froa the input and puts it in PAO. 
«AtX ff*S'9S a new file and Issvh it open. .'HAKE XIV 

QPB! opens an existino file for access, •OPES IIV 

CLOSE closes file access, updating file inforeation, •aOSE" 

DELETE rewves a file frcs the directory. Ko file say be open 
Hhen this coeaand is used. 'OELETE IIV 
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e \ File Systen - User file maands 

J:NAh£ (—a) 32TClTPftB } 

3 ■( EXIT I \ TESTIKB HQROS 

4 . RA^t { J NAME FCREATE DUP'fl) IF I * IF 

5 ' / already exists" aSE directory fuir THEN 

6 ELSE DROP THEH j 

7 : OPES I ) Hfin£ FOPEK B> IF can't find" THEH r 
B : CLOSE ( — ) FCLD3E j 

9 5 DELETE ( — ) KfthE FDELETE B< IF can't find* THEN ; 
16 

n EXIT 

12 ; HULT-LOAD 

13 >IK 2'r >R >R e MM 21 

14 STATE 3 IF] ELSE IKTERPRET THEN 

15 R> R> >IK 2! DECIflfiL 5 
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(FLIST) types the contents of the given block fron the current 1 
open -file. ^ 

4 



FLIST types ali tne olocKs m tne current open file. 
(LQAv'l causrs FQF.TH to interpret fros the disk file I this is 
the noroal loading process). Nested file loads are ok. 



IKaUCE can be used in a source code file to cause another file 
to be "included" or loaded. Use: IKCLUDE XYIIY 



\ File Systea - Utilities 
(aiST) ( n) -QFEH? BCT 3 BIN 8 KAX 
File: ' FILEhTO KKLEK TYPE Block: ° 

DUP . 16 B DO CR 1 2 U.P, SPACE DUP FBLQCK 

I 64 < ♦ 64 >TYPE LOOP CR 

EOF 3 IF EHB OF FILE' THEH SCR ! ; 

FLIST ( -) BCT 3 8 DO 13 HOD 8= IF PfiSE CR CR CR CR THEN 

i (FLIST) CR CR CR LOOP 5 
(LOAD) ( 'no — » OFFSET 3 )R B OFFSET ! 

Ff 3 >R FPTR a >R BCT 3 >R EOF 3 )R UPDATED 3.)R -1 Ftt 

F0P£M8«1F BCT 3 8 DO 1 nthBLK LOAD LOOP 

aSE I LCAQERR *i THEH 

R> UPDATED ! R> EOF ! R> BCT ! R> FPTR I R> FQ ! 

R> OFFSET ! 5 

i INCLUDE ( - 1 KAHE (LOAD) 5 
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These word print the contents of a directory entry. 



•EKfRY prints the directory entry for file n on one line. 
Feroat of directory depeids on DETAILS. 

.HEADER prints a heading for the directory coaoand. 



8 

1 : 

2 : 

3 : 

4 \ 

5 ; 
.6 : 
7 
B 
9 
IB 
11 
12 
13 
14 
IS 



\ File Systea - Directory Support 
.KAtS (ft) 'EKTRY RKLEK TYPE 
JBLKS ( m 'ENTRY 
.BLKl ( fOl 'ENTRY 
•CROT ( m 'ENTRY 
.CTIHE ( f6) 'ENTRY 
•RCATE ( m 'ENTRY 
.HTIHE ( f « ' 'ENTRY 
.FTYPE ( fQ) 'ENTRY 



SBLKS « 3 4 U.R 4 SPACES 
BUCl ♦ 3 4 0.R 5 
CRDATE ♦ 3 .DATE 3 SPACES 
CRTIRE * 3 .TII^ } 
HDATE + 3 .DATE,. SPACE |. 
HTIHE * 3 .TIHE T 
nYPE«3 4U.R SPACE ; 



.ENTRY ( f 0) DUP >R .HAHE DETAILS 9 
I oSLKl I .fiBUS I :tm I .HDATE 
R> DROP ; 

.HEADER .*'Files!° DETAILS 3 IF 5 SPACES 
/ Type Blkl flWks' 4 SPACES ."^ Created:" 
Hodified:" THEN ; 



IF SPACE I -FTYPE 
I .HTIHE THEN 



6 SPACES 
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PS JO finds the nth printable directory entry. Used for 
'pagesng* the directory listing on the screen. 



contains offset to the first valid directory entry to print. 
KOHE If true, no entries were printed. 
(DIR) prints n valid directory entrys starting at P6 in the 
forftat selected by DETAILS. 



.CIS prints every directory entry (TESTIMG). 



10: 
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\ File Systei - Directory Ois 

P6 TO ( n — fll !♦ -l SWP 1 00 

\l ( ptr) OOP 'EMTRY M IF I ELSE 

OVER RAIFIIES h > IF LEAVE TKEK 



THEN 
♦LOOP 



VARIABLE P6 
VARIABLE NOKE 

: (DIR) ( n ^ ) .HEADER TRUE NONE ! PS 9 PS JO SWAP 8 DO- 
DUP HAXFILES « IF LEAVE 8 ELSE OUP 'ENTRY M IF 
FALSE NONE ! CR DUP .ENTRY t ELSE 0 THEN 
SifAP I* SIfAP THEN «LO0P DROP ; 

: DIR .HEADER KAXFILE5 0 DO I 8> 1 16 NOD 6- AND IF KEY DROP 
THEN 

CR I . I .ENTRY LOOP j 
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p^up decresents page by the current HindoN height. 

pgdn advances PS Dy HindQH size if cnere is lore to display. 



SHQttOIR sakes a itindoM box on the screen, displays the Hies, 
and alloHS pageing up or down in the list until a key is 
pressed. 



142 CONSTANT UPKEY 
1S8 CONSTANT ONKEY 



a \ File Systea - Directory Display 
1 
2 
3 
4 
5 
6 
7 
8 
9 
ID 
11 
12 
13 
14 
IS 



pgu? 
pgdn 
PS! 



( - ) PS 9 NHEI8HT a - 8 RAI PS ! ; 
( - ) NONE 8 8« IF PS a KHEI^T 9 * HAXFILES HIN 
THEN : 



SHCi«DIR ( ^ ) 0 PS ! DETAILS 9 IF HELPSIZE 
ELSE SaECTION THEN BOX 

BEGIN CLS 8 8 TAB KHEISHT 9 (DIR) KEY DUP UPKEY = IF 
DROP pgup FALSE aSE DNKEY » IF pgdn FALSE aSE TRUE 
THEN 'THEN UNTIL HQPJC NINDON ; 



42S 
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F/P nu£ber of files printed per page. 

.DIR is used to print a disk directory on the printer. 
It advances to the top of a page, prints a header and prints 
up to F/P file entries. 



8 \ File Systei - Directory Printing 

1 33 CONSTANT F/P 

2 

.DIR ( — ) ^ 
8 ( entries printed) KAXFILES 8 DO 
DUP 8» IF PAK .'{ODER CR I* THEN 
I 'ENTRY C9 IF CR I .ENTRY !♦ THEM 
DUP F/P « IF DROP 8 THEN 
LOOP DROP 

CR CR FREECHT 22 SPACES . .* Free blocks' €R | 
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e \ Saiple Prep Screen Support^Sd Block 

This iodule contains the definitions that lanage the Saipte • I ^^^^ ^ ^^^^^ ^^^^.^^ attributes directly 

Prep screens. j 58 59 THRU V Screen Baintenance 

4 67 68 THRU \ user input/output . 

5 63 64 THF;U V Screen Haintenance ' 

6 7Q LOAD V Cowand Interpreter 

7 65 66 THRU . \ ST/STP/PAUS/CQHT and coaton Henu LabSiS ^ 

8 132 139 THRU " \ Status screen background 

9 185 LOAD \ help screen support 

18 69 LOAD \ <ake screen displays « TEMPORARY U 

n 15 LOAD \ editor 

12 78 LOAD \ filer screen 

13 IQ8 LOAD \ print screen 

14 72 LOAD \ status screen 

. 15 84 LOAD \ resolve forwrd references in screens 
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Pointer to current Screen data structure. 

'SCRK returns the address of the current screen data structure. 
Fril returns the address of selected function nuiber. 
Fri§a returns the currently selected function nucber. 
FftI! stsrss the current function nusber. 
VcRI eets the address of the current screen ID nuaber. 
>FUHCT returns the address of an entry in the current screen 
table '.pointed to by 'SCREEHl for the given function nuiher. 

FCHAR returns the coatand character for the given function 
ousber froi the current screen. 



58 

B \ Screen Support - basic tools 

1 VARIABLE 'SCREEH VARIABLE CELiaS VARIABLE KEKU-QH? 

2 16 CDKSTAKT /CELL 23 COHSTAKT 'BAR • 

T 

4 : >Ih?UTLIKE 24 S UAB ; : >HLPLIKE 22 IB tTAB f 

5 : >nSSlIK£ 2B 8 ITAB 5 VARIABLE KSEOIC? 
6 

7 : 'SCRU ( — a ) 'SCREER J 5 

8 : Fn» ( — a I 'SCRM j 

9 : FrM ( — n ) 'SCRN a- ; 
18 : Fnll ( n — ) 'SCRM 1 ; 

11 : SCR* ( — n ) 'SCRH 6 ♦ ; 

12 : >nr«lCT U — a ) 

13 5t ( /entry) 7 M header) 'SCRK M 

14 : FCHAR ( n — c) OTCT 4 ♦ W f 
15 
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nsSFLG if true, discUy selection eessage on line 23. 
>riSSLll^E positions cursor at coluen B of the help line. 
>IKFUTLIKE puts the cursor on the last line of the screen. 
LRfiRGH types spaces to center following text.; - . 
RKfiPiK fills reest of line «th spaces to clear old text on line 
CEHTERED types the text at address 'a' centered in a field si 

chars Hide. - - 

.KEY prints the coaeand char of the current function.- 



dotH* prints text centered on Nessa^e line. Refer to fORTH's 

dof definition on screen 86. , 
.F' coiDiles a string to he printed outside the «indo«. 
X' coipiles a string centered on an 68 char line. 
.H' coipiles a string to be printed centered on the proopt line 
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a 
I 

2 : 

3 \ 

4 ! 
5 

6 ; 
7 
8 
9 
IB 
11 
12 
13 
14 
IS 



\ Screen Support - Hessage and Proept Foroatting 

LnARBH I SI a ~ » K - 2/ ISPACES 

RK&REM C H a — ) K - EUP 2/ - tSPACES ? 

CEHTEREB ( si a — ) 2DUP LMARBH BU? CQUHT UYPE RKAF.6K 



I 



1 ?Ra COUKT 
INVERSE ELSE 



(iNDERLIHE TKEH 



dotF' ( — 
. CaLFLG 3 IF 

tTYPEHQRMAL ; 
• dotr ( — » 88 1 ?Ra CEHTERED ; 
t dotH' ( — 1 I ?W CELLFLB a 

IF >HLPLIHE 68 SMAP UHBERLIHE CEMTEREO HORHAL 
ELSE DROP THEN 
: .F- CQKPILE dotF' 34 STRIKB ; IKMEOIATE 
: .V CC«PILE dote* 34 STEIKB 5 WnEBIftTE 
: .H' COHPILE dotH' 34 STRIKB ; IRHEDIATE 



mi lAKI <o»« nM».-»-T \ e- — ^- 



/cat Size of Nenu Bar cell in bytes. 

W is the line naiber of the lenu bar. 

KELL positions cursor at beginning of ienu cell for the given 

function, . 

.CELL prints the label for a lenu cell by executing the 2nd 
address in the function table. 
fiSBOH nSGGFF turn the selection inforaation on and off. 
CELLOFF prints the c^l label with norial video (Hhite on 
black). 

CELLOH prints the cell label in reverse video. 
.NENU fills the eenu bar outline «ith the text fields defined 
in the screen pointed to by 'SCREEN. 
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1 : 

2 : 

3 : 



7 : 

8 

9 

le 
11 

12 
!3 
14 : 
IS 



V ScrHn Support - Kenu Cell 
)CaL ( n - If ct ) /CEL I 
.CELL ( n - ) OUP )C£LL ITAB 
.BAR 'BAR I- 8 UAB 79 ISPACES 



0 275 826 
labels 

BAR SNAP ; 
)FUHCT 2+ JEIECUTE ; 
•BAR e UAB 79 tSPACES 



CELLOFF ( - ) 

C HEX ] 16Q [ DECIK& 1 FnO >CaL /CELL 1- 
.KEKU ( : ) 

1 HEHU-ON?' ! 

UNDERLINE .BAR NORKAL 

e CELLFL6 ! 8 0 00 

1 Fnft3 = IF 1 CELLae ! THEH 
I .CELL e CELLFLB ! 

LOOP 1 CELLFLG ! ; 
KEHU-OFF ( - I 

e KEKU-ON? ! .BAR : 



HAT 



3B2 
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KErSCREEK snitches the display to a new screen. 



tSCnUS^ is increeented by- each new screen definition and used as 

the screen 10. Contains the nuiber of defined screens. 
The screen ID is us«d by KE1.P to display the rioht help screen. 
C€FSCRn is a cwipiler wd that creates a Screen data structure. 
The structure consists of an index (B..7) of the currently 
selected function; a pointer to the previous screen; a pointer 
to a procedure to execute Nhen this screen is selected and dis* 
played; a unique screen ID nusber (screens are nuibered se- 
quentially frofl 1 to n as they are defined); and B function and 
8 function entries, each. containing three entries: the address 
of a function to execute, the address of a tenu label displayer, 
and a coMand character that Hill execute the function. 



3 \ Screen Support - Screen Data Structure Definition 



NEKSCREEH ( 'screen - 
OUP 'SCREEN 9 - NOT 
IF OUP •SCP£EM ! 

4 * ^EXECUTE 
aSE DROP TfSK. 5 



) 



\ point to netf screen 

\ print the neM tena 

\ execute the screen proc 



9 VARIABLE ISCRNS \ nuiber of defined screens 
IB 
11 
12 
13 
14 
15 



DEFSCRH ( — 1 CREATE B , ( fund) 
8 t { link is filled in later) ' , ( screen proc) 
I ISCPJtS ♦! tSCRKS a C, ( screen ID!) . 
6 0 00 tCOHPILEl ( ' , ( function) ' , ( text) A5CIK 
LOOP D0E5> ( — I NEKSCREEH ; 



>B3 
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00 FUKC uses given index to fetch function pointer and executes 

It. 

<>FUNC loves the highlighted selector left or right on tbe tenur 

bar. +0 is right, -n is left. 
♦FUKC tove& the selector* to the right. .The sel eictor Nraps 

around if in the right lOSt position. ■ : * : , 

-FUNC loves the selector to the left. The selector koves to the 

rightaost position if on position B. . 
SELECT executes the function pointed to by' the current function . 

index in the current Screen pointed to by 'SCREEN. 
DESELECT exits the current tenu and goes to the previously ~ 

selected lenu. 

CHAR/FH coipares a given character to the function characters 
in the current screen and executes the function it aatches. 



I 

2 : 

3 : 
4 

5 : 

6 : 
■7..: 

B : 
9 

IB ) 

11 

12 

13 

14 

IS 



\ Screen Support * Henu cell selection Kords 
CLR»S6 >FUHCT KXECUTE 



OO/UHC 
OFUSC 
. CLRNS6 
♦FUNC 
HFUHC 
SELECT 



( n — ) 
( n — ) 
. CELLOFF- 
) 
) 
) 
) 



( — 



DESELECT ( — 

CKAR>FH ( c - 
IF I DO FUNC 



Fnt9 + 7 AND DUP Fnl! ..CELL 
I <>FL«C ; ... 
-I OFUaC ; . , 
Fnf 9 DO FUNC ; 

CLRNS6 'SCRN 2^ 9 . NEKSCREEH 



- ) 8 B DO 
.LEAVE TIEN 



OUP I >FUHCT 4 ♦ Ca 
.LOOP DROP s 



mi lAM lOnOI Ota.-CQ \ Camnl o C^an War- 01 1 



384 



.TITLE prints the systea title on the top line ol the screen. 



.STATUS prints the status line on line 2 of the screen. The 
contents of the fields will be updated by the STATUS task; 
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\ Screen Support • Status 



0 27 a o2o 



.TITLE 
10 2B TAB 
12 « TftB 
24 32 TAB 



6 

7 : .BAKHER B TAB 

8 -UHDERLIHE 

9 UHBEfiLIKE 
IB \ 



SP IB,0BB SAHPLE fREPARATIOH SYSTEM * 
!• VER B.r 

hit any key!* KEY ; 



.BANIitR displays the status the status header on the top 2 lines 11 \ 
of the screen. . }^ 

w 

14 
IS 



UfiOERLINE 
UKDERLIKE 
NORKAL : 



4 SPACES Status:' '' . 
READY • 

h SPACES TODAY 9 .DATE ' 
I SPACES 3TIRE .TIME 5 SPACES 
3B SPACES Itethod; Ko Method * 

5 SPACES 



MID prints the horiiontal line for I cell. ; 

IBOXTOP draws the top of one cell. 

IBuXMlD draws the oiddle line of a box. ■ 

IBOXBTK sakes the botte* line of a box. 

TOP? draws 7 box tops. ' . ' ' 

SQTK • bottoss 

CVDRS ' iiddles 

•BAR prints the Nhole aenu bar. ' 

.FRAME builds the aaia screen outline: the status header and 
and an espty asnu bar, - ^''^ .1 1 ; ' 
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0 \ Screen Support - Menu Bar Screen Layout 



1 

2 : 

3 

4 

•5 
h 
7 
8 

9^ 
10 

"11 

12 = 

13 ' 
-U 

15 



PASE .TITLE PAGE . 
1 0 TAB M TOP \ I 
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m is a function key routine that Kill accept a FORTH coasand 
froi the keyboard and execute it^ returninQ back to PREP. " 
Characters are echoed on the inputline (line ^} ;.:77-^ 

>CO«TROL sends a cofiund code and a' coiiand strins pointer to 
the control task and icaits for an acbsoiile^eaenl lessage. ' J_ 
Displays an error aessa^e if not a positive ack/' \ ' 

MTHDCTL sends a cotaand tothe controltasfc^siid redisplays 'the ' 
start/stop and oause/continue oenu fields to show new coiaand 
selections, t The cosnands depend on the oarent run status) 

ST/STP is the start/stop eenu couand, either starts or stops a 

»8thod. . ... 

PS/CKT paitws a running tethed or continues a paused tethofl. 
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0^^ A Screen support-- ST/STP/PAUS/COKT arid coeton Menu Labels' 

1 \ : >CQSTRGL (an — ) TO.COHTRGL SEKD.KSa 

2 FROMtOHTROL^HSBKAlT' ACK « HOT IF .EPJ5QR E15E D^ "THEK 

4 - ST/STP t - ) HOLL'STRT/STDP TOlraHTROL' SQffl.RSB .Vs ; , ' 

s *: PS/CKT I • ) muL wus/coht TOjcoimict sp^ 

7 :'|«H1CKSTATE' I — n ) RBH.STftTUS 9 ;. ii.'-'^f ' ' 

8 ' t RUIIBn PAUSaiT OR 1 LITERAL AND ! . , 

9 : SHO-COHTROL 1-) " " ... ' 
IB DUP Foia » HOT - 

U IF eCELLFLB! THEK .Cai 1 CEURB ! } 

12 VARIABLE LftSTSTATE' ' 

13 : HEUSTATE? (-) ' , 

M BHICHSTfeTE LASTSTATE » « ROT KSIRMK? 9 AKD 
15 IF 8 SHD-COKTRDL I SHO-COHTROL THEH ; 



Use EKPTYCL for any undefined tenu field, 
KELPriT shoNs the help cottaod field.' 

HHICHSTAT? returns' status of tethod Wdle. I»pause, Z^runnin^ 



status. 
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0 \ Screen support - ST/STP/Pi 

1 : EHPTYCU .F' * .K* 
2 

HELPTXT .F' Hap ' .H' 0 
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OKI and cotton Henu Labels 
; \ eepty cell • 



STRTTIT shOMS the START or STOP coBiand depending on current run 7 



on run status. 



PAUSETXT shoNS PAUSE, blank or CQHTIKUE lenu co«iand depending 11 



12 
13 
14 
15 



STRTTXT { - ) KHICHSTATE DUP L'ASTSTATc ! 
IF .F* STOP • .H' Stop Running' 
aSE -.F" START • 

•H' Start Preparation Procedure* THEW ; 

PAU3TXT ( - ) HHICHSTATE OUP LASTSTATE ! 

0 CASE IF feNPTYCL 
ELSE 1 CASE IF .F* PAUSE ' 

•H' Suspend procedure operation teiporarily* 
ELSE DROP .F' CONTINUE « 

«H* Continue running procedure* THEN THEN 
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• 8 \ Screen Support - User Input / Output »ord5 

IRST is used after expect. Siiilar to PiSET in FORTH Mhich 1 

is un-findable. 2 : XRST a BLK ! B >IH ! CHT C3 C«T 1+ C! 5 

INPUTTXT gets a teit string fro* the keyboard and returns the 3 

address of the counted string (count in first byte». 4 : INPUTTXT ( — aJ PAD 72 BLANK Sa 9 88 lEXPECT XRST 

5 1 KGRD DUP C? If PAD SKAP <CKGVE PAD ; 

TXTrRCSfT l3 yiytni the iouVess uf i couftted String to type as a 6 : TXTPRO«rT ( ap — ai ) >I«?UTLIHE CCaKT JHrc { proipt) 

user proipt on the inputline* The address of the input string. 7 IKPlJTTXT 24 ICLIKE ; 

is returned. g : keyPROHPT ( a — c ) HKPUTLIME COUNT tTYPE KEY 

KEYPRQKPT types a given proapt string on the lessace line-and 9 24 tCLINE ; 
awaits a keystroke. It dears the proipt and returns the key. 18 : YES? fa — t) KEYPROHPT DUP 121 = SWAP 89 = OR j 

11 

YES? returns true if user typed a 'Y- or 'y', false otherwse. 12 : CLR«3S ( - 1 HS80K? i IF 23 ICLIKE D USSCN? ! THEN ; 

13 : ,HS6 ( a - ) aPJtSG >HS8LINE 89 SNAP CENTERED 1 RSSGN? 1 ; 
•ERROR types an error string (counted) on the aessage line. 14 : .ERROR ( a - ) .HSS 5 
.H36 types a (counted) aessage string. IS 
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B \ Screens Support - Input Kords 
1 HEX 8C8 CONSTANT ESC 



6LENr Returns true if the naae length is 8. . . 

ESC? Returns true if the escape key Mas the last char typed. 
LEGAL? Returns true if all characters in naae are legal. 

FILENAME proapts the user with the given string, and processes 
his input. If return is typed with no chars, or the esc key 
is typed Kith any input, false and no input is returned to 
caller. If any non-legal characters are found, an error asg 
is displayed and user is re-prospted lor input. A legal input 
Mill return the address of tfie counted input string and true. 



2 
3 
4 
S 
6 
7 
B 
9 
18 
II 
12 
13 
14 



Ca 8* ; 

DUP ca 4 



BLEK? ( a — I ) 

ESC? (a — t ) DUP ca 4 C3 ESC * ; 

IE6AL? ( a — t ) TRUE SNAP COUNT OVER 4 SKAP ( t a^o a 

00 I C8 21 7F HITHIN NOT IF DROP FALSE . THEK LOOP : 



FILENAHE ( a ~ 

.8E8IH 

DUP TXTPROMPT 
OUPBLEN? IF 
OUP ESC? IF 
OUP LEGAL? IF 
DROP ( input) 
AGAIN : 



na t I f ) 



20R0P FALSE EXIT THEN 
20ROP FALSE EXIT THEN 
SNAP DROP TRUE EXIT • THEN 
r Illegal naae! Retype* .ERROR 



&aL 



IS DECIHAL 
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. e' \ Scrnn Support - f»te scfSn displays It TEKP08ARY « 

T.ese definitions are b.in, t^por^ily used to display 2 ^jmm mKi^mS^ ^^^^^ 

simulated -screens- until actual screens are built. 3 ^^^^^^^ j.^,.-,,. „XHOSU: 



t OUKXYawx«-^.« . 

5 DUnnYSCRESKS 2* CQHSTAHT PRTRBLK 

6 OUKKYSCREEKS 3 ♦ CONSTAMT SYTWBIK 

7 CUItJVfSCREESS .4 v COHSTftHT FLRBLK 

! : PSTATS STSBLK BLK>SCRH 5 \ ^a^e status 

19 : PIOHD HTHDSU BLDSCFO* | \ " «ethod 

II : PRPfiT PRTRBIK BLK>SCRK ; \ ' prmt 

P : PSY3T SnaBLK BLK)SCRM j \ " systea 

13 : PFILR FLF3LK BLK>SCP.K } \ ' filer 
U 
15 
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CKD is a function key routine that will accept a FORTH coiaand 
Iroa the keyboard and execute it, returning hack to PREP. 
Characters are echoed on the inputline (Urie 251 
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g \ Screen Support - CoMand Interpreter 



2 : CKB ( — ) 

3 ClRilSG 

4 6 24 88 a KIHOGli 

5 8UERY IKTERPRET 



(PfiSE) e. e TftB 



9 

10 
U 
12 
13 
U 
15 



s the cciMnd selector across the eenu. 



39: 
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KAT is used to eodity the attribute of screen text Hithout 
iodifyin§ the contents of the charac 



1 



12 



HEX CODE (KftT) ( attribute n a - I 

« POP 1 PC? 2 PGP . 

I PUSH K I HOV 

HSPLAYLDA ES ISS 

BESIK 

26 C, t ES:J IQBS 
2HIIH1K0VB STOS 

LOOP 

g IS SSB 0 ES LSS 1 POP 
KUT OECIHAL 

HAT I attribute Inl coll n - ) 
ROT 8B t ROT ♦ 21 tMAT) } 



14 
15 
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PP.EVSCR puts the link to the previous screen into i screen 
descriptor. This used after the 2 screens are defined to 
resolve the fomard references'. PREVSCR THIS PREV 

This screen reEolves the forward references in the screen lint 
pointers. Load this blocr: after all the screens have been 
loaded. Add the links for all screens that are defined in 
the systea. These links are foHcHed when the user exits 
a screen* The links point to the screen to 'return' to. 
Note that the Status screen is the hoie screen, and points 
to itself. 



84 

0 \ Screen Support - 
1 

2 : PREVSCR ( — ) 
3 
4 

5 

7 



}rlf^i 



Resolve f or Naro references in Screens 



f1>EVSCR 
FltEVSCR 
PREVSCR 



this screen 
STAT SCR 
FILER.SCR 
PRHT SCR 



2* • SWAP ! ; 

preyious screen 
STAT SC?. 
STATJCR 
STAT SCR 



9 F0R6ET PREVSCR 
IB EXIT 
ii 
12 
13 
14 
IS 



4Q6 
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S 

1 . 

2 . 

3 
4 
5 
6 
7 
8 
9 
IB 
il 
12 
13 
14 
XZ 



S FHLOAO causes the control task to load a function file. 
It procpts the user for a filenase and sends a load coitand and 
the filenaae pointer to the control task. 



394 



B \ Status Screen - load Bloc 

2 : SSTEP t J HIU ISTEP TO.CQKTROL SEHB.KSB 
3 
4 



SFNLDAD (-) r File to Load?: ' 
FKLOfiD TO.COKTKOl StHD.RSB THEK 



FILEHAKE IF U 



7 73 74 THRU. 

8 EXIT 
9 

16 
11 
12 
13 
14 
15 



73 



6 

I 
2 
3 
4 
S 
6 
7 
8 
9 
18 
11 



\ Status - Hena label procedures 

PRKTTIT ,F' Print * 

.H" Print Utility' j 

nTHDTXT .F" Methods ' 

.H* Create or Rodify a «ethcd' ; 
; LQABTXT .FV Load ' 

«H* Load a Kethod to Ran* ; 
[ SYSTXT .F' Systea • 

.H' Access to core Systea Functions' ; 



FILETIT 
ISTPTXT 
E5T8TIT 



.r' Filer ' .K' Kanage files' \ 
.r IStep ■ .H* Step Through the Procedure' 
.F' Editor ' .H* Edit Text Files' ) 



12 EXIT 
13 
14 
IS 
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\ Status • Screen Definition 
STftT.PRQC 
STftT-OH? HOT 

* IF' CLS 5TAT-0H STArdS-BK6 



I 
2 
3 

4 ■ : ■ 

5 \ ft proc 

6 DEFSCRK STAT.SCR 
7(B) ST/STP 

8 11) PS/CHT 

9(2) SSTEP 

18 ( 3 ) S FHIOAO 

U ( 4 ) FILER.SCR 

12 ( 5 ) PRKT.SCS 

13(6) FEDIT 

14 ( 7 ) HELP 
15 



TKEM 



text char 
STATJPiJC 



STRTTXT 
PAUSTH 
ISTPTXT 
LQADTXT 
FILETXT 
PFJinU 
EDTRTXT 
KELPTXT 



8 
8 

I 
1 
f 

P 
e 

h 



011 



•lAKi lona 0101 • A 1 



e^«.p«i^ o- — 
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B \ Filer Screen - Load Block 

F.OEL proipts the user for the filenaie to delete and deletes 'it 2 : F.Oa (-If File to Delete?: • FILENAKE IF 14 fdELETE 
If possible. 3 IF File not Found" .ERROR THEN THEM 'SCREEH ^EXECUTE : 

4 

S 35 4 4DRIVE LOAD \ Loid dis^ initi'aliration 
6 

f.FWT Mill foriat a diskette in drive B. IH1TIAL12E actually 7 : F FHT ( - ) f Erase all data on diskette? (T/K)« YES? IF 
foroats the disk (erasing any data), IKITBAT initializes the 8 r Insert' diskette in drive B. Press return when ready- ^ 
blocfc allocation table, and INITOIR initializes the directory. 7 m?mn 13 = IF f FOR«ATTI«S.,.' .KS6 INITIALIZE 

18 IHITBAT INITDIR RUSH t' Done' .HS6 TKEK THEN ; 

11 

12 79 ee THRU 

13 EXIT 
14 

IS 
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B 
1 

2 : 

3 ; 

4 : 

5 : 
6 

7 

8 

9 
IB 
11 
12 
13 
14 
IS 



\ Filer - Menu Labels 

RKKTXT .F* Renate 

CPYTXT ,F' Copy 

OELTXT .r Delete 

FRHTTn .F* Foriat 



•H' Change a File Hase' ; . 
.H' Copy One File to Another" j 
.H- Delete a File* j 
.H' Kake a Blank Disk for Files' ; 



401 ,80 

8 \ Filer - Screen Definition 
The filer screen displays the disk directory. ' 1 : FILER.PROC 

2 3TAT-DFF CL3 1 DETAILS ! SHOMIR B DETAILS ! ; 

3. 

^1 . 4 A ft proc text char 
: .\ Z DEFSCRK FILER SCR FILER PROC 

.6(8) ST/STPSTRHXT 8 

' . 7(1) PS/CNT PAUSTXT B 

.8(2) BELL RHirrXT r 

9 ( 3 ) BELL CPYHT c 
IB ( 4 ) F.Da OELTXT d 

11 ( S ) F.FtlT FRKHXT f 

12 ( 6 ) BaL EHPTYCL B 

13 ( 7 ) HELP HELPTn b 
14 

IS 
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FUTBuSY «ben true, the printer is busy and cUTt be used by, 
another task. 

(FPRISTJ prints all the blocks in the currently open hie, 
imim prints the disk directory on the printer. 

00 m sets the orinter busy UaQ and executes the given 
iriftt routine. U naits for printer idle before returning. 

fPRiKT proipts the user for a filenaee, and sends it to the 
printer. 



OPftlKT Querys the user before printino the disk directory on 
the printer. The directory is printed in detailed foriat. 
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e \ Printer Screen - Load Block 

1 VARIABLE PRTBUSY 

2 : tFPRIMTl 
5 ; (OFUIRT) 
4 
S 
6 
7 



9 
18 
U 
12 
13 
14 
•15 



sua I 

TYPIST ACTIVATE. RIST FALSE PRTBUSY I STOP ; 
TYPIST ACTIVATE .DIR FALSE PRTBUSY 1 STOP ; 



DOPRT ( a — » TRUE PRTBUSY' i 
r Busy..." .nSfi EXECUTE BEGIN . PAUSE PRTBUSY i B= UKTIL 
V Done' -.HSS 5 

FPP'MT V Enter File to Prints • FILEHAKS' IF I* FOPEK 
IF* r File not found- .ERROR EXIT THEtt fl (FPRIHTl 
DQ.PRT FaOSt THEM ; 

' OPRIKT r Print the disk directory? m)* YES? IF 

DETAILS a I DCTfilLS ! C'3 «PRINT) OO.PRT DCTAILS • THEK 
189 lie THRU 
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8 \ Printer - Kenu Labels 
I 



Z : PFILTXT .F* 
4 
5 
6 
7 
8 
9 

19 
11 
12 
13 
14 
IS 



' a \ Printer - Screen Definition 
1 : PRKT.PROC STAT-OFF aS ; 
2 



3 \ fl 


proc 


text 


char 


4 KFSCRR PRHT.SCR 


PRKT.PROC 


s ( e ) 


ST/STP 


STRTTXT 


8 


6(11 


PS/CHT 


PAU5TXT 


6 


7 12) 


DPRIHT 


PDIRTH 


d 


8 C 3 ) 


FPRIKT 


PFILTXT 


• 


9(4) 


BELL 


EMPTYa 


8 


18 ( S ) 


BEU 


EKPTYa 


6 


in 6 ) 


BEa 


EMPTYa 


8 


12 17 ) 


HELP 


HELPTXT 


h 


13 









14 
15 
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IsmP is the tt^isk screen nuiber of the first helpscreen. | 

fHELPS is the nuiber of defined help screens. ' 2 

KELPARRAY contains help screen nuibers for each lajor systei 3 

screen. The 8th entry is reserved for general systei help. 4 
Each of these help screens is a 'chsptar' heading, Mith further 5 

helpscreens available by using ap or doim arron keys. 6 

SUBJECT points to one of the chapter screens in HELPARRAY. 7 

KcLPSCR is the current help screen I. g 

BUOSCR displays a given disk block as text. 9 

HELPSUBJ selects a help chapter based cn given screen nurter. 10 

riHOHELP gets current screen and selects the right help chapter, 11 

+SUBJ advances +-0 chapters frot current chapter and shoMs help. 12 

Used for paging through help subjects. 13 

4H3CR advances *-n screens froo current help screen. Used to 14 

"flip" pages of help screens. 45 
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\ Help Screens - HELP Screen sd 
3tB COMSTAHT iSTKELP 
9 CORSTAKT fHELPS 
CREATE KaPARRAY 

B ( reserved) C, 4 i filer) C, 7, ( print) C. B ( status) C, 
VARIABLE SUBJECT 
VARIABLE KELPSCR 

: BLIOSCRH i serf — ) aS 8 « TAB U 8 DO 18 TAB DUP 

BLOCK I 64 t ♦ 64 >TYPE LOOP DROP ; 
: .HELP ( — ) HELPSCft 5 ISTHELP ♦ BU>SCRH j 
: KELPSUBJ ( serf — ) DUP SUBJECT ! HRPARRAY 4 C9 HELPSCR ! 
! FIHDHELP ( — ) SCRf C9 HELPSUB.J ; 
\ : ♦SUBJ ( n — ) SUBJECT 9 ♦ 8 XAX fSCRHS B HIK KELPSUBJ 
\ .HELP J 

: ♦H5CR ( n —J HaF^CR 9 ♦ 8 KAI IHELPS HIK HaPSCR ! .HaP 
186 187 THRU 
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HJOKE returns user to original help screen keyed »<here he is. 

K.PGUP pages to next help subject 

H^PSDH • previous 

H,UP pages to next help screen 

W.OW • previous • 

HELPKEYS is the function key table for help screens. 



8 \ Help - Function key table 
1 
2 
3 
4 
5 
6 
7 

8 CREATE HaPKEYS 



: H.HOKE FIMDHELP .ffiLP 
\ : H.P5UP 1 ♦SUBJ ; 
\ I H.P6DH -1 ♦SUB J ; 
2 H.UP I iHSCR ; 
H.OK -I ♦HSCR 5 



9 i 88) 


8 


1 


8 


f 8= 


8 1 


IB ( 84) 


8 


f 


8 


, 0 


f 0 1 


11 ( 88) 


8 


f 


8 


f e 


1 > > 


12 ( 8C) ' 


H.HOHE 


f 


6 


f ' H,UP 


» > > 


13 ( 98) 


' 8 


1 


8 


f 8 




14 ( 94) 


8 


f 


8 


f • H.DK 


f B 1 


15 ( 98) 


8 


1 


8 


1 8 


, ' 5HAPSKQT 1 
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HELP displays the helpscreen keyed what the user is doing 
(Mhat systei screen is displayed), alloNs pageing through 
the helpscreens, and Haits for undefined key before 
redisplaying current user screen. . . 



8 \ Help Screens - HELP 
1 

2 : HaPlKFO SaECTIOH BOX 

3 .* Help ICeys: 

4 .• PgW» 

5. « PgD« 

6. * Koee 

7 PrtSc 

8 Esc 
9 

18 
11 
12 
13 
14 
13 



^Page 
^Page 
This Subj 
Pcint Scrn 
Exit Help ' 



CR 
CR 
CR 
CR 



HELP I • ) 
STAT-OFF ICKU-OFF 

HELPI)?0 KaPSIZE BOX FIHDHELP .HELP 'FKEYS 9 
CI KELPKEYS 'FKEYS f BEGIN KEY -FUfCTIGN? IMTIL 
'FKEYS ! mn mNODH 
'SCREEN 8 8 'SCREEN ! EXECUTE : 
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This the Function Editor that is used to edit user delined" 
functions uritten in FORTH. It can ilso be used to edit any 
general text file, including paraieter files and Method files. 

Tt.15 editor is based on the FGRTH Inc. fucntion key editor found 
Oft Screen 72 of the Level 3 Source disk. It has been todified 
to use the output MindoHS of saiple prep, and uses the prep 
file systea for all disk I/O- 



IS 
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V Teit File Editor • Load Screen 
VARIABLE EOHT V set true to exit the editor 



e 

I 

2 

3 

4 74 4 iORIVE LOAD 

5 16 LOAD 

6 75 4 ♦DRIVE tOAD 

7 17 22 THRU 

a 

9 

la 

11 
12 
13 
14 
15 
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a \ File Editor - Function key table, cursor type 
I CREATE 'KEYS SHALLOT 'KETS 5fl ERASE 



7 



, . 'FUMCTIOM ( k - al 59 - 2t 'KEYS ♦ ; 

4 • :K < k) : LAST a 3 CFA 2* SKAP 'FliKCTIOH ! ; 

5 i rkllOK I fc) sap 59 84 SSTHIS IF 'FlRiCTIS}! SEXECUTE 

6 * ELSE DROP THEH i 

6 HEX CREATE CT 7BB9 , I cursor type) 

16 CODE CHOICE CT 1 HOV I HI I KKS B I CT MV ISII 

11 RCP THEK ? 

12 : ♦CURSOR i a) 'CURSOR CT 3 cursor ; 

13 : -CURSOR ( al 'CURSOR 7M cursor ; 

14 : BLIMK 8S88 CT ♦! 5 

15 decMl 
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t£D is the only reference to disk UO. le aessages whenever 
cf BLOCK, but deals only with file relative block nuebers. 
LAD returns the address of the nth line of the current block, 
f5tchin-9 it froe the disk if necessary, 

OEL and any other nord «hich todifies the text on the screen 
calls FUPDATE to aark the current disk block as todifxed. 
The FUPDATED block will ultiaatly be Hrittea out to the disk 
Nhen that block's buffer needs to be reused by BUFFER, either 
fey accessing other disk blocks, or by the file CLOSE operation 
Hhen exiting the editor. . ^ ^ u 

The directory and disk allocation inforaation are updated nhen 
the liie is dosed. 
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\ File Editor - Line operations 
LAD ( 0 - a) C/L » SCR 3 FBLOCK ♦ ; 
CLAD ( - a) LIKE LAD ; 
<ADSR ( - al CUD COL * ; 

COLS(-n) C/L COL : LIKES t - n) L/S LIhl - 
CLRL ( n) DUP LAD C/L BLANK FUPDATE 8 S«AF tSO) - - 
C/L SPACES ; ■ 

.LIKE <ADDft COLS >TT?E ; ' ■ ^ "J 

.BLOCK LINE LIKES DUP IF U THEK 8 00 DUP 8 OVER (60) 
LADC/DHPE HLOOP DROP J 
xKL ( ft ol SSAP LAD DUP ROT ♦ C/L <CHOV£ FUPDATE | 
MLDM ( n) C/L xKL ? 
HLOP ( n) C/L KESATE x«L \ 



1 ; 

2 1 
3 
4 
5 
6 
7 
8 
9 
18 
11 
12 
13 

14 65 :K 

15 :K 



-LIKE 
-BLOCK 



<ADDR COLS BLANK FUPDATE COLS SPACES | 
H.ItlE LINE LIKES B 00 I* OU? CLfiL LOOP DROP 



ttAO OWGINAL 



1 



EfirK^OK turns on both eiphasi:ed and doubie-sinTe codes. 
ErtPH^OFF resuies norial printing. 
Kn.STATE points to the opposite print lode routine. 
CUR.ATR stores the current printing attribute. . 

KORH causes printino to be norial brightness, (the 2S& is 

replaced bv the address of 8RI6HT below) 
cfllGKt causes printing to be eephasized and double struck. 
Given the oect char's attribute, eRIGHTKESS vill flip the : 

printer into the proper print lode if the attribute is 

different froi the previous char's. 
.CHR prints a character, replacing a null Nith a blank. 
J.CHftft fetches the char and it's attribute froa the screen 

and prints it. Kote that screen Kdory is in different segient 
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71 C, 



e \ SNAPSHOT Mords 

1 nSB EKPH JH 4 C, 27 C, 

2 nse EMPH.OFF 4 C, 27 C, 7B C, 27 C, 72 

3 MSG UHOL.ON Z 27 C, 45 C, 4? C, 

4 H56 UNOL.OFF 3 C, 27 C, 45 C, 46 C, 

5 VARIABLE CUP.ATR ' • 

6 : NORK ( ~ ) 7 CUR.ATR I EKP^.OFF UKDl.OFF ; 

7 : EMPH ( — ) 112 CUR ATR ! UMDL.OFF EKPH ON ; 
B : UHBL < — J I CUR.ATR ! EMPH.OFF UNOL.ON ; 
9 : 6R16HTHESS '( atr — ) DUP 7 » 

18 IF KORM DROP 

11 ELSE 112 = IF EKPH ELSE UMDL THEM THEH ; 

12 : .CHR < c — ) OOP «= IF DROP S2 THEH EMIT 

13 : i.CHAR ( dadr ) 

14 E9 DUP 2S5 AKO SKftP 2S& / ( c atr) BR16HTHESS .CHR 



IS 46 LOAD 
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8 \ SHnPSKOT * screen printing utility 
I 

IlIHE prints the given line froi screen eeeory. Reverse video 2 : ILIHE (1 — I 
chars will be eephasized. 



FULLSCR prints the entire screen. 



3 NORN 68 ( 2% DUP 168 * SKAP DO I 11 a.CHAR 2 ^lOOP 
4 

5 : FULLSCR ( — ) 

6 25 6 DO CR I HIKE LOOP | 
7 

(SMA?SHOTJ is the cosaand to be executed by the printer task to 8 s tSNAPSHQT) ACTIVATE FUILSCR STOP } . 

print the screen contents. 9 
SHAPSKDT sends the cotaand free the terainal task to the printer 18 : SKAPSHOT TYPIST (SNAPSHOT) | 

U 
12 
13 
14 
15 



task. 
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8 

I 

3 
4 
5 
6 

7 : 

B 
? 
18 
11 
12 
13 
14 
15 
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These oessa-^e tokens are used to coaaunicate betHeen the user 
and the control tasks, fiessages s^t to the control task 
consist of a coftsand token frofl this list, and a pointer to a 
«*riri5. T^:- t?xt string is used to pass filen?Bgs to the file 
load ccaeands, and possibly to pass a FORTH coMand string to 
a (yet undetined) cosftand interpreter, fill other cooofiands 
can send a HULL pointer. 

Each coaaand sent to the control task will be followed by a 
response token and a test string pointer indicating success or 
failure upon trying to execute the cofiiand. fin ACK response 
Hill send a null pointer, which can be ignored; while a KAD: 
response will send a pointer to an error eessage which should 
be presented to the user. 
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e \ Task Support - Hessage Tokens, Load Block 
1 

2 \ Messages to control task: 

5 1 COKSTflHT STRT/STOP \ start or stop running" 

4 2 COHSTftKT PfiUS/CG!<T \ pause sf.continae running 

5 Z COHSTANT ISTEP \ do just one step 

b 4 COHSTAHT KIOAD \ load a oethod file 

7 5 CONSTANT '.FKLOftO \ load a function file 

8 6 COHSTAKT CTLR3T \ reset the control task 

9 7 COKSTAHT ttCTLCHDS \ nuober of defined control cofisands 
IE 

11 \ Responses froo control task: 

12 V 4? CONSTANT ACK \ positive acknoHlegeoefit 

13 \ 8Q CONSTANT HAK V error! 

14 116 123 THRU 
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8 \ Task Support - Task Cofiaunication iiords 

Each "eessace' consists of a 8 bit token, and a ih bit string I 

.j^^gj. ^ 2 CREATE TO CONTROL 3 ALLOT \ .coaaand to control task 

SEND HS6 'waits until the aessage. buffer is enpty and puts the 3 CREATE FRQH.COKTRQL 3 ALLOT \ response froe control task 
given eessaae in the b»iHer. The message is taken by another 4 

' • . 5 : SEKDJSS ( ptr n a — ) BE6IH PAUaE DUP C3 UNTIL 

GcT.HSS reaoves any eessage i.n the given cessage buffer 6 SNAP OVER C! U ! • 

jivd eapties the buffer to allow another aessage to be placed. 7 ^ . , . « - •.r.pb' 

(15BHAIT «ait£ for a -ssage to appear end then returns i^t. B : GET.HS6 ( a — ptr n) DUP >R U 3 I Ctf R> .vER„5E ; 

The first byte of these eessage structures contains a eesTage IB : mmi C a — ptr n) BESIH PAlTaE DUP C3 UNTIL 8ET.RSB 

code (8 if no eessage waitingJ, bytes 1,2 are pointer to string. 11 

TO CONTROL contains a cossand for control if byte 8 not fl- 12 : CTL.fiBORT 

FROK CONTROL contains the response to a coacand if byte S not 8. 13 I FRQlt.CONTROL SEND.KS6 ABORT j 

14 
IS 
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CS contains screen offset for typing to screen. 

SCTAB positions C8 to line, col of screen 

)CRT 'types* text to the screen nithout using FQRTH's output 

routines, (useful for background tasks that dent have output 

routines defined. I Text is in inverse video. 
>TERn saoe as >CRT but in noraal video. 

(0 Start nufiber fornatting for output. 
Fornat buffer is below the TOP user variable (ref FORTH scr 75) 
Q} Finish nuaber foraatting, gets addresSf count. 
:83 Converts one decinal digit and one sinutes digit <BB - 59) 
(ains) Foroats and prints the given value in the following 
foroat: 18:32 Used to display the tioe of day. 
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8 \ Task Support - Background task CRT printing 

1 VARIABLE STAT-ATTR HEX 788 STAT-ATTS ! DECIKAL 

2 : SCTAB ( 1 c — ) SNAP 8S M 21 CI ! ; 

3 : >TEPai ( adr u - ) 

4 21 CI 3 OVER CO 4! OOP ROT ♦ S«AP 00 

5 OOP C3 STAT-ATTR 3 OR 1 CRT3E8 EI !♦ 

6 2 ♦LOOP DROP ; 

7 HEX . 

8 : UKD>TERH 

9 STAT-AHR 3 >R IBB STAT-ATTR • >T£Rfl R> STfiT-AHR ! ; 
18 DECIRAL 

11 \ : SEUAL 6 BASE ! | 

12 : (6 ( - ) TOP PTR ! ; 

13 : 0> ( d — a c) 2DR0P PTR 3 TOP OVER - ; 

14 \ : :8a DECIHAL H SEXTAL 0 OECIHAL 58 HOLD 5 

15 \ : (oins) C n — ) 8 (ft :8B 0 B 0} UKO>TERH ; 



44 1 

OTEfiB is the equivilmt of £KIT for t«fcs .ithout output 
routines 

^"Sms"* "* ^^'^^ "tiwot output 

CEKT>T£R« i, the eduivalenl of CENTEFa for Hsks «thout 
output routines (CENTERED is define.) in «ndOHS». This ' 
version autooatically truacates strin,s that are too 

10f>f • 
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d 
I 
2 
Z 
4 

r 

J 

6 
7 
8 
9 

le : 

11 

12 

13 

14 

IS 



V Task Support - Background task CRT printins 



: C>TEfi:« 

'S I HEflH DROP ; 

: SP>TEfi« 

m? 

IF e DO BL OTERtt LOOP 
THEN J 

C£KT>TEP.K 

im C3 KIN OVER C* 
2Eyp C9 • 2/ SPHERK 
DUP COUKT >TER« 
Ca - OUP 2/ - SP>T£RH ; 
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These variables are used to uintun the syste. status 
in Dr.ation. For each ite. in the syste. that needs it's 
status displayed, there will be a variable that indica es iV. 

affects the ite« (such as turnino a reUy on); ther- ^iil .\.o 

siatus tas ('for tats 
t1^J"'?"\\""' '''^'^ ^^reen updating sof Je 
th- cDr.taifts he currently displayed state of the ite.. In 

hfai^I * 5 ^he dicpu; (and 

the display state variable) if they dont agree. This al qh 

itMs usually change for each pass through the status update 



8 \ Task Supoort - Systei Status Variables 

2 CREATE RELAYS 3 ALLOT RELAYS 3 ERASE \ Relays 1-24 

3 CREATE OLDRELAYS 3 AUOT QLDRELAYS 3 ERASE 

4 CREATE RLYDEFAULTS 3 AaOT RLYOEFAULTS 3 EPJiSE 

6 VARIASli PBUSY VARIfiK.E OlSPKJSY \ 1 r bo.y 

7 VARIfiBlTPRflTE VftftlfiSLE OLDPRATE \ Puip rate 

8 VARIABLE PVOL VARIABLE aOPVOL \ Pum ^oUk 

9 VARIABLE PDIR VARIABLE OUPDIR V Pu.p direction 

18 

11 VARIABLE OLDTIKE \ previous tiee of day 

12 VARAIBLE 0LD5TATOS \ previous run status 
II X^"!?*"^ CHAHSEKETHQD \ true ichen a l.n .ethod is loaded 
U CREATE HETH09BUF K«LEM AUOT \ current «thod fil na« 
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Hore systsi status inforeation variables. 



Task Supoort - Systei Status Variables 



8 RV-DEFAULTS 3 ♦ C! 



6 
I 

2 CPXATE RV-STAT-TBL 8 AUOT \ Rotary valves W 

3 RV-STAT-TBL 8 ERASE «i es ii 

5 fRjl^nT.''''"!:? ' "^'^ ' ''''' positions 

5 4 RV-OEFAULTS CJ 4 RV-DEFAULTS I ♦ C 

6 8 RV-OEFAULTS 2 ♦ C! 
7 

8 VARIABLE HITIHE 

9 VARIABLE HIPMR 
18 VARIABLE MXDUTY 
11 VARIABLE HIBUSY 
12 

13 VARIABLE MPMSS 

14 VARIABLE FPffS8 
15 



VARIABLE OLOHUIHE 
VARIABU OLDniPW 
VARIABLE OLDAXOtmr 
VARIABLE CLOnZBUSY 



\ Rixing tiie 

\ Hixcr power setting 

\ Hiier duty cycle 

\ 1 ' «ier is on 



VARIABLE GLOmSG 
VARIABLE OLOFPNSe 



Method oessage pointers 
Function eessage pointers 



fiUN.STnTUS Contains bits which indicate the state of the 
control tdsk. 

The loadino bits are used to recever fro* errors during a 
load ooeration. NorA&lly, the lead operation is cotpleted 
and an acknoHle^etent is returned to the user task. But 
if an error occurs, the control tasl loop is esited and re- 
entered by the error handler. These bits are used to ' ; 
determine how to recover fros the error and to send an 
appropriate error eessa^e. 
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e \ Task Supoort 

1 HEX 

2 VARIABLE RUH.STATUS 



nl^^tus 
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Systea Ru 

\ control task status 



5 
4 

5 
6 
7 



\ Bits in RUH.STATUS: 

1 C0H3TANT RUNBIT 

2 COHSTAHT PfiUSEBlT 
4 CONSTAHT BUSYBIT 
6 CCKSTAHT 5TEPBIT 
10 CONSTANT FLQAi}BIT 
26 COKSTANT HLCAG6IT 



\ true nhen running 

\ true Nhen in pause 

\ true when ending run 

\ true Mhen in single step code 

\ true Mhen loading functions 

\ true Nhen loading a eethod 



13 DECIKAL 
11 



12 
13 
14 
•15 



RUWBIT PAU3EBIT BUSYBIT STEPBIT FLOADBIT ♦ ♦ * ♦ 
CONSTANT IDLEBITS \ use this aask to test for idle 
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8 

1 
2 
3 
4 
S 

7 
8 

16 

11 
12 
13 
14 
IS 
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8 

1 
2 
3 
4 
Z 
6 
7 
8 

18 
11 
12 
13 
14 
15 



FORTH. Tr*^ P.-o«.-4 «4---w -TAM 
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6 \ Statas Task - Load Black 
I 

2 14] )44 THRU \ Relay status apdate routines 

3 147 148 THRU \ Rotary valve status update routines 

4 ise 1S2 THRU \ nixer status update routines 

5 153 1S5 THRU \ Puap status update routines 

6 1S6 158 THRU \ Frograitable lessage update routines 
7 

8 127 129 THRU V Rest of status task 

9 an 

10 
11 
12 
13 
.14 
IS 
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B \ Status Task - status header strings 



6 
7 
B 
9 
18 
11 
12 
13 
14 
IS 



\ These routines return the address of string for statas header 
PSEST r MUSE • : 



ROY^ST 
RUH ST 
SS ST 
STEPST 
BSY.ST 
ERR ST 
LDB ST 



f READY • 

r mms • 

V SIMSIE STEP* 

V STEPPIKS ' 
f BUSY ■ 
r ERROR STATE' 
f LOADIKS • 



449 



128 



SHtntCLQCK displays the tiae of day on the status header. 
SKO^STATUS displays the run statas in the header. 



STTIHE updates the clock If current tite is different froa 
Old tine. 

STRtJN updates the run status if current status is different 
froe Hhats displayed. 



e 

1 \ 

2 : 
3 

4 
S 
6 
7 
6 
9 

18 

11 
12 
13 
M \ 
1S\ 



\ Status Task • Status Header Updates 



: SHOi{£LOCK 
SHOXSTATUS ( 



( n 
n — 



- I 8 43 SCTAB (tins) 
I IDLEBITS 



iHB 

e CASE IF PJSY.ST ELSE 
i RIMBIT LITERAL 3 CASE IF RUM ST ELSE 

C RUHBIT PAU3EBIT OR LITERAL I CASE IF FSE ST ELSE 
t RUHBIT 5TEPBIT OR LITERAL 3 CASE IF STEP3T ELSE 
C RUNBIT PAUSEBIT STEP6IT 

OR OR LITERAL 3 CASE IF SS ST ELSE 
t BUSYBIT LITERAL 3 CASE IF BSY ST ELSE 

C FLOAOBIT LITERAL 3 CASE IF LB6JT ELSE 

DROP ERR ST 
THEN THEN im THEM TKEK THEN THEN 
e 12 SCTAB COUHT UK0>TEPJ1 ; 
STTIHE 9TIHE OLDTIHE 3 - IF 8TIHE CUP . 
OLDTlie ! SHCVaOCK THEN ; 
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5K0KKETH00 If the first char of the current lethad file naoe'is 
not 0, display the filenaie. Naie is updated by control task 
Mhen a valid lethod is loaded. 
STHETHO updates the currently selected method naie on 
the status header if the nate has changed. 

STATUSHEnSEf; updates inforsation at the top of the screens* 
ri«ei runtiiSf lethod naie* 



ElniHIKS is th€ sain status task loop. It runs every .1 sec. 
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e \ Status Task - Status Task Loop 
I 

2 : STRUM RUH STATUS 3 OLOSTATUS J - IF RUN .STATUS J OUP 

3 OUSTATUS'l SHOBSTATUS THEH ; 

4 : SHOttrjETHOD fl 62 SCTAB rtnKODBIJF ? IF «ETKC.P9UF 

5 ELSE r no tethod ' THEN KNLEH UN0>TERI1 ; 

6 : STKETKD CHAKGEKETNOD 9 IF FALSE CHAK3EHETH00 ! SHQtjnETHQD 

7 THEN ;\ • 
8 

9 : STArjSKEACER ( - ) 

IB ( PAUSE SniHE ) PAUSE STPifN PAUSE STHETKO ; 

11 : OEVICESTATUS ( - ) 

12 STELY5 STRVLVS STPU«P STKIIER STPH5S ; 
13 

14 : RUNNIKS ACTIVATE im HS ( wait for initialization) 

15 BE6IN STATUSHEADLB 3EV1CE3TATUS A6AIK ; 
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0 

1 
2 
3 
4 
5 
6 

.... , 7 

8 
9 
IB 
11 
12 
13 
14 

: 15 
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BITfiASK is a table of bit usks, indexed by a nusber froi 
» to 7. 

RlYBrTEJ iii-jicates which bvle in the relay table we are 
^ currently indexing for status display. 

FIYBVTK taSres a table address froa the stack (either old 
^ or nen status table) and returns the currently indexed ' 
status byte froi this table. 

BITRASKi returns a bitiask given a bit nuaber (8-7) on the 
stack. 
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0 \ Status display - relay status updating - basic tools 
! HEX 

2 CREATE himSK I C, 2 C, 4 C, 8 C, U C, 20 C, 40 C, 66 

3 OECIHAL 
4 

5 VftRIARE RLYBYTEI 

6 ASSEMBLER BEGIN 

7 H POP H 8 ADD 0 H NOV 

8 0 0 SUB H ) 0 NOV B 

9 0 PUSH NEIT 
10 CODE RLYBYTE? 

IS RLYBYTEI 0 NOV OUP JHP 

12 COSE BITKASM 

13 BITNASK ff 0 KOV JKP 
14 

IS FQRTK 
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>ftLY.DISP positions the cursor at the begining of the status ! ^ " "^'^ ' ''''' 

display region for the indicated relay nuifaer on the stack. 2 : )RLY-DISP ( n - ) 



3 12 /HOB 21 t 36 ♦ SHAP d * SSIAP SCTAB 
4 

5 VARIABLE STAT-FLA8 

6 : STAT-GK? PAUSE STAT-FLAS 3 j 

7 : STAT-OM 1 STAT-FLAS I ; 

8 ; STAT-CFF 0 STAT-RAS ! ; 
9 

10 
U 
12 
13 
14 
15 
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OiSP-SELAY displays the status of relay n as indicated by 
the on/off value on the stack (1 = OH), 

sao-mr is the sate as DISP-RELAY, but a indicates a relay 
relative to the currently indexed status table byte. 

SH0-8-RLYS takes a bitiask froe the stack, and displays all 
relays froe the currently indexed status table that are 
indicated by this bitiask. 



143 

0 \ Status display - relay status updating - display nords 

1 : OISP-REUY ( on/off n - ) 

2 DUP >fiLY-DISP 24 SXAP 

3 IF U THEN 

4 21 CD-NASE-T3L ♦ 9 COUKT >TERK ; 
«i 

6 : SHO-l-RLY ( oo/ofl n' - ) 

7 RLYBTTEI a £ t 4 DISP-naAY .; 
8 

9 : SHO-B-HTS ( bi - ) 

18 fiaAYS RLVBHEa 

11 S I DO 

12 OVER I BITIUSK? AK!> TOOP 

13 IF OVER ANB t SHO-IHILV 
M THEN 

IS LOOP ZlfiOP ; 
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CHANGcD-RLYS? displays are relays in the currently indexed 
status table byte that have been lodified sinse last 
displayed. 

STRLYS displays all relays that have been lodiiied sinse 
they Mere last displayed. 
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B 

I 

2 1 
3 

Z 
6 
7 
B 
9 
16 
11 
12 
13 
.14 
IS 



\ Status display - relay 



0 275 826 
updating * top level 



CHftNGED-RlifSf (-» 
RELAYS RLYBYTK OUP QLSRaftYS RLYBYTE3 
XOR DUP 

IF SK0-9-RLYS OlORaAYS RLYBYTEI B ♦ CI 
ELSE 20R0P 
THEH 

STRLYS ( - ) 
STAT-aH? IF 
3 6 00 

I RLYBYTEt \ CKfiN6ED-RLYS? 
LOOP 
THEN : 
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I 
2 
3 
4 
S 
6 
7 
B 
9 
18 
11 
12 
13 
14 
IS 
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POSDPtWri converts a position nuiber a,4,7^^to a port 
nuiber (1,2,3,0. 

>RV-01SP positions the cursor at the beoinina the display 
region for the requested valve nutbrr on the stack. 

OISr-RV displays the status of the requeted rotary valve. The 
value given on the staci: (n) is twice the value of the 
valve nuiber. 

UFD-Pr-STAT updates the status variables for the requested 
rotary valve. The value given on the stack (n) is twice 
the valui of the valve nuiber. 



3 
4 

5 
6 
7 
8 
9 

10 : 

11 

12 

13 

14 : 

IS 



\ Status display 
: POSt>FORTt I 
3 /MD ♦ ; 
>RV-OISP C n - I 
3 t 8 ♦ 2e SCTAB 
6ET-RV-STR ( n pi - 



rotary valv 
n - ) 
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es - basics 
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DUP 8= IF ZDROP f Hot Present * EXIT THEM 
OUP 3 < • 

IF l-'2l SWAP 4 t + aSE 3 - 2t SWAP 4 ♦ 4 I ♦ 

THEM RV-NAhE-TBL ♦ 9 ; 
DISP-RV ( n - ) 

DUP 2/ SWAP OVER >RV-DISP 

RV-STAT-TBL ♦ CS POSi>POfiTI 

6ET-RV-STR CCUMT >TERn ; 
UPD-RV-STAT ( ft - ) 

OU? RV-STAT-TBL ♦ C3 SWAP RV-STAT-TBl U ♦ C! : 
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STR't'LVS displays the current status of all rotary valves 
Nhose status has changed sinse it Has last displayed. 
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8 \ Status display - rotary valve updates - basics 
1 

2 : STRVLVS 

3 STAT-C?{? 

4 IF RV-STAT-TBl 7 8 DO 

5 DtIP M Ca OVER I I* f C3 = KQT 

6 IF I DISP-RV I UPD-RV-STAT THEH 

7 t HCaP DROP 

8 THEr{ ; 
9 

16 
U 
12 
13 
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8 

I 
2 

3 
4 
S 
h 
7 
8 
9 
IB 

n 

12 
13 
14 
IS 
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D(SP-nXSTATE displays the current on/off status of the sixer. 
DISP*KXTin& displays the current duration settin9 of the 

OISP-NXPKR displays the current potier setting of the aixer. 

0ISP-«X5UTY displays the current duty cycle setting of the* 
lixer. 



15Q 



1 : 

L 

3 
4 

5 

6 : 

7 

8 

9 : 
19 
11 
12 
13 
14 : 
IS 



a^^d 
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Status display - aixer statuWpdatinq - display routines 
OlSP-MSTATE ( on/off - ) 13 12 SCTAB 

IF C HEX 3 m STAT-fiTTR ! f OK • COUHT HERT. 
m STAT-AHR \ \ OECIKAL'l . 

ELSE r OFF' COUNT HERn iKcK * ; . 

DISP-KXTIHE ( n - ) . 
15 13 SCTAB e (• t t I l> >TEE« \ 

DISP-«XPHR ( n - I 16 13 SCTAB C HEX 3 

eeae case if r i/4' else acci case if r m\ 

ELSE BIOS CASE IF f 3/4' ELSE 6161 CASE IF V FUL' . 
THEN THEN THEM THEN COOlU >TERK C BECIKAL 3 ; 

BISP-HXDUn « n - ) 
17 14 SCTAB 8 Ct I f 6) >TERK ; 
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All of the following words display their inforiation only 
if this inforeaticn has been fiodified since it was 
last displayed. 

KX-STATE? far the nixer's current on/off setting. 

KX-TinE? for the aixer's current ti§s setting. 

RX-PKR? for the lixer's current power setting. 

RWIITY? for the aixer's current duty cycle setting. 
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8 \ Status display - lixer status updating - status checks 

1 : HX-STATE? KXBUSY \ DUP OLDNXBUSY a = HOT 

2 IF DUP DISF-KXSTATE OLDUXBUSY ! 

3 aSc DROP rriEM 5 

5 ! HX-TIME? . itXTIRE % BOP QLDKTIKE % = HOT 

6 IF DU? DlSP-filTIKE CLEMITIRE ! 

7 'ELSE DROP THEN } 

9 : KX-PUR? HXPWR J DUP QLDNXPMR a = NOT 

10 IF DUP DlSP-HXPaR OLDMXPWR ! 

11 ELSE DROP THEN ; 
12 

13 5 «X-aUTY? HXDUTY % DUP OLDKXDUTY t = NOT 

14 IF DUP OISP-RXDUTY OLBKXDUTY ! 

15 ELSE DROP THQJ ; 
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6 \ Status display - fixer status updating • top level 
STKl'lER displays any aixer settings that lay have changed 1 

since they were last displayed. 2 : STKIXER ( - 1 

3 STAT-OH? 

4 IF HX-STATE? KX-TIKE? NX-PXR? Itt-OUTY? 

5 THEN ; 
& 

7 

6 

9 
18 
11 
12 
13 
14 
IS 
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OtSP-fSTATE displays the current on/off stitus o4 the putp. 

OESP-PVOL displays the current voluie setting of the puip. 

OCSP-PP^TE displays the current puspinQ rate setting al the 
pufp. 



8 \ Status display * puip status^PRtinQ - display rautines 
1 : OISP-PSTATE • ( ofl/off - ) h 12 SCTAB 
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OISP-PDIR displays the current direction setting of the pusp. 8 



IF C KEl 1.F0O STAT-ATTR ! I' OH ' COUHT )TERH 

788 STAT-AnR ! C DECIMAL ) 
ELSE f OFF' COUHT ::TERR THEM ' j 

OISP-PVOL ( n - ) 
8 13 SCTAB Q Ct f f t 1} >TER» : 



DISP-PP.ATE ( n - I 
? 13 SCTAB 8 (I t t t 1} }TEKN 



9 
10 
11 

12 : OISP-PDIIi ( for/rev - ) 

13 18 13 SCTAB 

14 IF $• FOR' COUriT >TERK 

15 ELSE V REV COUNT >T£RH THEN 
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All of the following words display their inforiation only 
if this inforiation has been eodified since it was 
last displayed, 

PU«P-STATE? for the puep's current on/off setting. 

PUTiP-Va? for the pusp's current voluie setting. 

PUMP-RATE? for the puip's current puiping rate setting, \ . 

FliKP-OIR? for the pusp's current direction setting. 



154 

B \ Status display - puip status updating - status checks 

1 : PUKP-STATE? P3USY 9 DUP 0LDPBUSY.3 = KOT 

2 IF DUP OISP-PSTATE OLBPBUSY ! 

3 aSE DROP THEN ; 
4 

5 ! POKP-VCl? PVOL 9 OOP OLDFVQL 9 = KOT 

6 • IF DUP OISP-PVOL OLfiPVOL i 

7 ELSE DROP THEN ; 
8 

9 : PUKP-P.ATE? PP^TE a OUP OLBFIJATE 9 = HOT 
18 IF OUP OISP-PRATE OLDPRATE ! 
11 ELSE DROP THEN ; 
12 

13 : PUMP-DIP.? PDIR 3 DUP QIDPDIR 9 * HOT 

14 IF DUP DISP-PDIR GLOPDIR ! 

15 aSE DROP TKEK ; 
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^^^^^ ^. . S \ Status display - puip status updating - top level 

STPUri? displays any puap settings that tay have changed . 1 

since they were last displayed. 2 : STPUHP ( - ) 

3 STAT-OH? 

4 IF PU«P-STATE? PUMP-VOL? PUKP-RATE? PUMP-OIR? 

5 THEN ; 
h . 

7 
8 
9 

IB 
11 
12 
13 
14 
15 



OlSP-PSSS aets a string address and a iUq that indicates 
whether this string is a tethod aessaqa string (U or a 
function lessage string (81. It then places this string 
i!i th» acprcfriate screen position. 1* the string 
pointer is 6, then then appropriate aessage area on the 
screen is cleareil. 
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e \ Status display - prograiable iSfages - display routine 
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DISP-PnSB ( str-addr ithd/func - J 

IF 2 9 SCTAB 60 

ELSE 4 4 SCTfiB 28 
THEN SHAP ?OUP 

IF C5HT>TEPJt 

ELSE SF)TERM 
TKe» : 



U 
12 
13 
■14 
IS 
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STlSPItSG updates the tethod prograafisble eessage on the screen 
if it has been changed since last displayed. 

STFPM3G updites the function prograsiable isssage on the screen 
ii it has been changed since last displayed. 
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0 \ Status display - progratable sessages - top level 
1 

2 : STMPHSS ( - ) 

3 HPHSS 3 BUP QLDHFKSB 3 « HOT 

4 IF DUP I DISP-PKSS OLDKPKSS * 

5 ELSE DROP 

6 THEN ; 

7 ' 

8 ; STFPKSB ( - ) 

9 FPRS3 9 DUP 0L3FFKSB i = KOT 

IB IF DUP B 015F-PKSS OLSFPIISB ! 

11 ELSE DROP 

12 TKEM J 
13 

U 
15 
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8 \ Status display - prograaable esssages - to? level 
1 



STPKS6 updates status screen progras^able sessages nhsnever 
they change. 



2 : STPRSB ( - ) 

3 STAT-QN? 

4 IF STJffMSB STFFKS5 

5 TKEH 5 • 
6 

7 
8 
9 

10 
II 
12 
13 
14 
15 
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BROfi-PI£CE defines self uiti^ constats for sentfino border' • 
characters to the screen. 

All border pieces, ercept for the horizontal piece, are 
•Jretinied u5iftc ERDk-PIEC£. The pieces are: 
TL for top left, TC for top center, etc... 

BAR-STfi is a string of horizontal characters used for drawina 
a horiiontal bar, ^ 
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lie tools 



B \ Device status - background 

1 : BRDR-PIECE 

2 CREATE , ( c - ) 

3 00E5) a EHIT ; 

4 218 BRDR-PIECE Tl 194 BRM-PIECE TC- 191 BRDR-flEC^ TR 

5 17? BRDF.-flECE Vl 

6 192 BRDR-PIECE BL 193 BRDR-PIECE BC 217 6RDR-PIECE BR 

B CREATE BAR-STR 29 ALLOT 
f : HAKE-STRINS ( - ) 
13 BAR-STR 2B B 00 

11 i% OVER C! !♦ 

12 LOOP DROP J 

13 KAKE-5TRIN8 FORGET KAKE-STRfNS 
14 

IS 
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DR3AR draHs a horizontal bar of a characters at the current 
cursor position. 

DRTL and DRTR dran to? left and top right sections of a box 
respictively. 

DRTGP and DR3TK drsn a casplete top or bottoi section for a 
box. 

DR2SD draws the two sides of a box on one line. 

0R3SO is the sase as DR2SD, but is used for boxes that have 
a vertical center divider. 



B 

1 : 


\ Device status - background - draMing sections 


0R6AR 


( n - ) 3AR-STR SWAP TYPE ; 


2 






3 : 


DRTL 


( n - » TL 1- DR6AR ; 


4 : 


DRTR 


( n - ) I- ORBAR TR ; 


5 






h : 


KTQP 


f n - ) TL 2- m?S. TR j 


7 : 
8 


DRBTfl 


( n - ) 8L 2- DRBAR BR | 


9 : 


DR2S9 


( y I n - ) 


IB 


1- >R 


2DtJP TAB VT 


11 


R> 4 


TAB VT ; 


12 : 


DR3SD 


( y X n - ) 


13 


I- >R 2DUP TAB VT 


14 


I ♦ 


20UP TAB VT 


15 


R> ♦ TAB VT ! 
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PU;«II-BCX draws a paap or lixer box at the location 
specified on the stack. 

PUKP-BOI draws a puip box at the appropriate location, and 
places all the rewired labels and titles in and around 
it. 

MIXER-BOX draws a lixer box at the appropriate location, 
and places all the required labels and titles in and 
around it. 
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8 \ Device status - background - PUMP and HIXER boxes 



I 
2 
3 
4 
5 

* 7 
8 
9 

IB 

U 
12 
13 
14 
IS 



PU/ttlX-BOX ( top left - ) 
2D(JP TAB 17 DRTQP 
OVER !♦ DUP 3 ♦ SWP 00 

I 2 PICK 17 0R2S0 
LOOP . , 

SBAP 4 4 SWAP TAB 17 DRBTM ; 
PUKP-BOX 

• • PUflP* 5 1 PU/MIX-BOX 

VOLUKE:* 7 2TAB,-FL0«RATE: 
OIRECTIOK:- ; 



4 3 TAB 
& 2 TAB 
e 2 TAB . 
HIXER-6QX 
II 3 TAB 
13 2 TAB 
IS 2 TAB 



niXER- 12 1 PU/HIX-BOX 
DURATION:' 14 2 TAB kCKER:' 
Z DUTY:* ; 
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RV-BOX draws a single rotary valve box at the location 
requested on the stack, and labels it with the given 
nuaber (n) on the stacfc. 

RV-BQSES draws ail four rotary valve boxes and labels 
ttieii apropriately. 
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e \ Device status - background - fiOTARY VALVE boxes 



3 
4 
S 
h 
7 
6 
9 

11 
12 
13 
•14 
15 



RV-BM ( top left n - ) 
>ft 2DUP TAB ' . 

6 DRTL 55 ET.IT R> 48 * WIT • 7 CRTR 
SKAP IV 2DUP SWA? 15 0R2SO 
1* S«hP tab 15 DRBTK ; 

RV-BOr£S ( - ) 
4 2fl TAB RQTARV VALVES' 
19 2 4 8 DO 

3 + 2DUP S8AP I I* RV-BOX 
LOGP 2DRGP ; 
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0 \ Device status - background - COinfiCT DEVICES box 

1 . 

CD-BOK draws a contact device box with all its labels and 2 : CD-BOI ( - ) 

titles 3 2 48 TAB CGMTACT CLD3li?.ES' 

4 3 35 2DISF TAB 

5 7 DRTL FUHCTIQK' 6 DPJAR TC 6 ORBAR .* FUKCTIOH" 7 DPJR 

6 SKAP 12 8 CO 

7 1+ 2DUP SSA? 22 DR3S0 . 

8 LOOP 

9 1+ SKAP TAB EL 22 DR8AR BC 2B DRBAR BR ; 
18 

11 
12 
13 
14 
15 
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All the words in this and the following screen display thier 
respective inforiation regardless of wether the status of 
any of thee has been iodified sinse it was last displayed. 

SHO-RVLVS displays the current status of all rotary valves. 

SHa*KtXER displays the current status of the lixer. 

SH3-PUKF displays the current status of the putp. 
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B \ Device status - background - updates at refresh tite 
I 

2 : SH0-RVLV5 I - ) 

J 7 a DO I DISP*RV 2 ♦LOOP ; . 

4 

5 : SHQ-WIXER ( - ) 

6 MBUSY a DISP-RISTATE KXTIHE a OISP-MXTWE 

I nXP«R a DISP-NXF«R KXDUn a DISP-RXOUTY } 
B 

9 : SKQ-PtJ.V { - J 

18 PSUSY a OISP-PSTftTE PVOL ^ OISP-PVQL 

II PRATE a DISF-PRATE POIR a DISP-PBIR ; 
12 

13 
14 
15 
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SHO-ftlYS displays the current status of all relays. 
SH0-P,1S6S displays both prograMo&Ie lessages. 



0 

I 

' 2 
3 
4 

e 
J 

6 
7 
8 
9 

le 
n 

12 
13 
•14 
iZ 



\ Device status - background Updates at refresh tiae 

: 9RLY-STAT { n on/off ) 

8 /KOO P.EUY3 « C9 SWAP BITKASK9 AND ; 

: SHO-RLYS ( - I 
24 6 00 

1 9P.LY-STAT I DISP-RELAY 
LOOP ; 

: SHO-PrtSGS 

HPttSS a I CISP-P«SG 

FPKSs a e 0ISP-PHS6 ; 
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STATU3-BJ:G paints the Nhole status' display, and updates its 
contents to the current value of all devices and aessages. 
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0 \ De?ice status - background - top level 
I 

2 : STATUS-SK6 ( - ) 

3 \ Display all boxes and default text for background 

4 PUKP-BOX HUEF:-BOX 

5 RV-BOXES CD-BOX 

6 \ Refresh all of the actual divece and aessaoe status 

7 - KIKDOiiOFF 

8 SHO-RLYS SHO-RVLVS SKO-PUNP SKQ-niXER SK0-P»565 

9 MIKDOKON ; 
IS 

tl 
12 
13 
14 
IS 



461 



140 



e \ Control Task - Load Block 
1 

2 181 182 THRl^ \ Basic tools 

3 192 193 THRU \ lethod structure wards 

4 185 189 -THRU \ Conwnd processing' 

5 194 LOAD V Break esecutloft wrds 

6 237 LOAD \ Relay Control 
• 7 213 LOAD • ^ P'ja: Control 

B 225 LOAD '\ Haailton Valves 
9 2j4 load \ Kixer Operations 

10 237 LOAD \ Fro^rafiaafcls eessages 

U 198 LQAD \ Task loop, irdtialization 

12 EXIT 

13 

U 

IS 
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HTKflR U not fl, points to tost recent valid lethod. 
HTKHPTR is used for displaying the naie of the tethod. 



)KTHMArtE places the naes of the lethod in KETHQCSUF, 
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\ Control Task - basics for methods 



VARIABLE HTHPTR 
VARIABLE KTKHPTR 



\ Points to first nord of lethod 
\ Points to nfa of lethcd 



: >?iTHD-KAri£ 

KETHODBUF KSLLH SLAHK 
RTKKFTR a 4 ♦ COUNT 11 KIK 
KETHOOBliF SKAP CKOVE ; 
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IDLE? returns true if a lethod Is not runnino. 

BUSY? returns true if cycling fros running to idle. 

PAUSE? returns true if in pause state. 

RUU? returns true if running, pausio^i or stepping. 

STEP? is true if in single step eode. 

RSP sends a response (a eessage pointer and a token) to a 

coftand frci the user task. 
ACKRSF responds with ok if coftnand Mas accepted. 
KAKRSP is an error response, string is used for error lessage. 
startrun irrll perfori necessary processing to start a run. 
endrun Mill do what is necessary to end a run. 
notready responds with not ready error. 
HTHOOK? returns true if aethod exists and no load errors. 
KTKOEP.R error if the aethod is not ok. 



0 \ Control Task - basics for status Checking 

1 t statcheck ( n — t) RUK.STAVJS 3 AKS ; 



IDLE? ( 
BUSY? ( 
PAUSE? ( 
RUR? ( 
STEP? ( 



t) 
t) 
t) 
• t) 
t> 



lOLEBlTS statcheck KCT 
BU5YBIT statcheck 
PAU3EBIT statcheck 
statcheck 
statcheck ; 



mm 

STEPBIT 



3 
4 
S 
6 
7 

8 \ : RSP ( ptr n — ) fRO«.CCKTROL SEKD.nSS 
\ 
\ 



9 
18 

U : 

12 : 

13 : 
.14 : 
IS : 



ACKRSP 
KAKRSP 

startrun 

endrun 

notready 

KTHDDK? 

KTKDERR 



( — ) r control ok* 
( ptr — ) KAK RSP 



Aa RSP 



( perform end run operations) ; 
TRUE ABORT* Error: not ready! ' 
KTHPTRI ; 

TRUE ABORT' Error: Ho Hethod!' 
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CJT/STOP processes a start/stop coiiand <rot the user. 



g2o 



B \ Control Task - Start/Stop^ 

1 : C.ST/STOP ( ptr — ) DROP 

2 BUSY? IF ( cant start or stop Nhen its busy) 

3 ootready 

4 ELSE 

5 IDLE? IF ( not running) 

6 KTHDOK? IF ( start a nen run) 

7 • RUNBIT fiUK.STATUS ! startrun 

B ELSE ( soeet)iing Nronq nith the lethod) 

9 KTHOERR 
13 THEN 
U ELSE ( end the run) 

12 BUSY3IT RUN STATUS ! endrun 

13 THEN 

14 THEN ; 
IS 
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CJ-S/COfiT processes a pause/contirme couaod iro« the user. 



6 
I 
2 

4 

S 

7 
3 
9 

13 

11 
12 
13 
14 
15 



Pause/Continue Run control 
I 



\ Control Task 
C.PS/CONT ( ptr 
BUSY? IF 

notready 
ELSE 

IDLE? NOT IF 
PAUSE? IF 

RUW.STATUS 3 C STEP3IT PAUSSBIT OR HEGATE 1- 
LITERAL AND P.UK STATUS ! 

asE 

PAUSEBIT RUH.STATUS H 
THEN 
THEN 
THEN 1 
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C.ISTHP processes a single step cofiiand ^roe the user. 



18 
U 
12 
13 
14 
IS 



\ Control' Task - Single Step Run Control 
CJSTtP ( ptr — ) DROP 
BUSY? IF notreadf 
ELSE 
IDLE? IF 

HTHOOP IF \ start a run in sinole step sode 
RUHBIT STEPBIT ♦ RUN STATUS ! startrun 

ELSE 

NTHBERR THEN 

ELSE 

RUN,STATUS 9 

PAUSE? IF \ turn off pause to do one step. 

C PAUSEBIT NE6ATE \- ] LITERAL ANB 
THEN STEPBIT OR RUN STATUS I 
THEN 
THEN : 
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LAST-€Kfl contains a pointer to the address of •endiethcd" 
in th& lest occurance of END. If END is being coipiled 
for the first tiie in a load, this pointer eust be 
m-n. 

8HTHD initialiies the control task «ethod paraeeters. It 
eipties the dictionary sp&ce cf the task, clears any 
outstanding status lessa^es. resets LAST-EHD to 8, 
connects the tasks dictionary to the tap of the sain 
dictionary, deares the old sethod nate. 



e 

1 

X 

3 
4 
S 
6 
7 
B 
9 

n 

t2 
13 
14 
15 



\ Method Execution - initialization 

VARlfiBLE LAST-ENO \ Points to 'endiethod* in last END 

: CKTHO 

EMPTY 0 RTHPTR ! \ Qet rid of old tethod 

e flPRSS e FPrtSS ! \ clear eessa^ss 

e LfiST-EHS-! \ lintialise EKts 

OFERATOP. CQKTEIT HIS COKTEIT 2B WOVE \ chain vocabulary 
C KETHODBUr ! TRUE CHAHSEttETHOD 1 ; \ clear sethod naae 



i 
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KETHOD Dcfinino Mord. Coapiles a'ncH eethod and puts it's 
startiRQ address into KTKPTR. 

endiethod Run tiae code for EKO. Tereinates isthod execution. 

EHD CoipilioQ Hord inserts 'eridsethcd* as end of aethod 
definition and steps coapilin^ the fisthod delinitiofi. Since 
•ethods sust be able to nsst, 'sndaethod* lust executs^only 
once, at the end of the last sethcd defined. The variable 
LAST-EKD is used to replace earlier cospiled addresses of 
"endsethfld* with EXIT, effectively converting all but the 
last occurance of EK& into rsorfial forth seeicolons. 
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8 \ Method Execution - defining aethods • 
I 

2 : KETHD9 

3 HERE RTKKPTR ! 

4 : LAST % ; CPA 2* KTHPTR ! ; 
5 

6 CODE endsathod BUSYBIT I RUH.STATUS nOV ' EXIT JKP 

7 * . 

8 : END 

? LA3T-EKD # ?DU? 
18 IF CI EXIT 2- 0\'ER ! THEM 

11 HERE LAST-EKD I 

12 COSPILE endaeUiad SMUDGE R> 3- STATE ! ; IMMEDIATE 
13 

14 
IS 



SIS 
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pause, step, or continue coaaands froa the user task, 
the coaaand loop if stop. 



Exits 



B; teriinates a delinition, causing a 'breat' to process 
coiaands frca the user task and to all oh other tasks to run. 



8 \ Method Execution - breaking execution 



break Runtiae code for B; Used in place of *;* to check for 1 



4 
5 

6 \ 

7 

8 

9 
16 
11 
12 
13 
14 
15. 



break STEP? IF PAU3EBIT RUKJTATUS TKEK 
BE6IK PRGCES3.CKD3 BUSY? IF CTl.LQQP THEM 
PAUSE? NOT uifTIL R> DROP EXIT 5 

B; COMPILE break SMUD5E R> 8» STATE i ; IMMEDIATE 
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The UDper port of the PIA generates the address and control " 
Iread/HriteJ, while the loner port is for data in/out. 
These constants define the I/O addresses for the 6821 PIA chip 
on the 02t9-22 AC 2 adapter card. 

OUTOIR sets the PIA to all bits out for the given channel. 

IHDIR sets the data direction to input. 



RirSOtJT outputs the data value to the PflKUX port (8-2). 
(PAfiUX is a parallel board connected to the PIA) 
RLYSIK gets the current state of all the relays. 



0 
I 
2 
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7 
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9 
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\ Relay Control 
HEX 

\ direction/data 
318 CQH5TAHT COA 
312 CPH57AKT CDB 
: O'JTDIR 

CyiPUT 
: INDIR 

OUTPUT 
: RIYSOUT 

DUP 40 
: RLYSIK 



contrd 
311 CQKSTANT CTIA 
313 COKSTr'i.T CTLB 
( a — ) >R 6 11- OUTPUT 
.34 ft> OUTPUT ; 
( a. — ) )R B I 1- OUTPUT 

34 R> OUTPUT ; 
< d a — ) CTLB OUTfilR DUP COA OUTPUT 58AP COB OUTPU! 
♦ CDA OUTPUT CDA OUTPUT ; 

fa — ) CTLB IHDIR OUP CDA OUTPUT B6 + COA OUTPUl 
CDB IKPUT 8 CDft OUTPUT ; 
CECinAl 288 212 THRU 



\ upper parallel port 
\ loMsr • • 
6 I OUTPUT 8FF I !- 

e I OUTPUT 8 11-- 
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RLY contains the relay i after RELAY is executed 

PRT contains the PANUX port address after REUY (8-2). 

K3K contains the bit task to isolate the relay bit. 

FlYUPDATt Given the neM state (either on or off) for a relay, 
read in the current relay states for this group of 8, and 
set the neK stats for this relay. The current status for 
for these relavs is saved in RELAYS for status updating. 
Kote that RELAY lust be executed before OK or OFF. 

RELAY converts a relay nuiber (1 - 24) into a port I and il's 
bit position in the port. 

OH and OFF turn just the relay selected by RELAY on or off. 

IKIT.RLYS sets all the relays to their user selected state, 
{defined by the bits in RLYDEFAULTS) 



6 
7 
B 
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10 

11 
12 
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15 
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0 V Relay Control 

1 VARIABLE RLY \ These 3 variables are set by RELAY 

2 VARIABLE PRT VARIABLE RSK VARIABLE SK3 
3 

4 ; RLYUPOATE ( n — ) 

5 MSJC 3 AND • \ isolate relay state bit 
PRT 3 RLYSIH \ get current state 
KSK'a -1 XOR AHO ( reiove old state J OR \ insert new state 
PRT 3 2DUP RELAYS ♦ CI ( save relay status) RLYSOUT \ 

RELAY ( I — J I- \ Converts 1-Z4 to 8-23 
OUP 8 23 KITKIH HOT ABORTT Relay # is out of range* 
DUP RLY ! 8 /«Q0 PRT i 8ITKASK ♦ CJ «SK \ ; 
(OM) RLYDEFAULTS PRT J ♦ C3 INVERT RLYUPDATE j . 
(OFF) RLYDEFAULTS PRT 8 ♦ C3 RLYUPDATE ; 
IKIT.RLYS 

CTLA OUTOIR CTLB OUTDIR 21 1 DO I RELAY (OFF! LOOP : 



S3<a 
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4 RELAY NATiED RETHANOL' 



UnMEO is used to give a relay a naee: 

Later, use as: KETHANOL piLAY OH 
IS.OFF is used to define the state of the relay when -off. 

Allows a relay to be norially on rather than off. 

Use: 4 RELAY 1 IS.QFF takes 'on' the default for relay 4. 

Coabine the tHO definitions: 3 R^AT KA«ED KATER 0 IS OFF 
DELAY waits a given nuiber of ailliseconds before returning. 

Use it in user lethods rather than FORTH's RS to alloM 

recoonisinj the stop cotiand. Quits back to lain loop if stop 

HS is redefined to be used as a units descriptor in a lethdd. 
Use: 5 HS DELAY or 18 SEC DELAY. 
NIH Halts for several tinutes. 



0 \ Relay Control - Method Hords 



1 

2 : 

3 : 
4 

S : 



OH ( - ) .(OH) fl; 
OFF ( - ) (OFF) B; 

SEHSOR ( I - ) l- DUP 28 24 8ITHIN 

6 HOT ABORT' Sensor 4 is out of range*. SKS ! ; 

7 : (6ET-SEKS0R) ( - on/off ) SHS 8 8 /HOD 

8 RLYSIH SWAP BITHASK? AHD HOT HOT ; 

9 ; SHAIT < on/off ) BE6IH PROCESS CKOS BUSY? 

18 IF Ca.LOW THEH DUP (BET-SENSOR) = UNTIL DROP B; 

11 : BET-SEKSOR ( t - ) SENSOR (6ET-SEKSflR) ; 

12 : OH-HAIT ( - ) 1 SNAIT ; 

13 : OFF-HAIT (-IB SHAIT : 
14 

15 : UPD-SENSORS ( - ) 2 RLYSIH RaAYS 2+ CI : 
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B \ Relay Control - Hethod wo^^ 

2 : NAKED ( - J CREATE RLY 9 C, DOES) ( — II C3 ; 

3 - IS OFF ( t — 1 IF -I ELSE 8 THEN KSK a AND 

4 " RLYDEFAUITS PRT 5 ♦ CUP C3 MKVEPT AKO SWP OR ! ; 

5 J DELAY (15 — ) 

6 COUNTER + BEBIH PROCSSS.CKOS BUSY? IF CTL.LOQP mi 

7 DUP CQUKTER < UHTIL DROP } 
6 

9 
IB 
II 
12 
13 
U 
15 



11 1 
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4 
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PI/0 is the data input/output port lor the puSp controller. 

PSTS Status port for I/O. 

RCVROY bit in PSTS is a 9 Mhen data is available. 

JfilFDY is a I when it is ok to triosoit to the controller. 

PREADY is a 1 Hften the it is olc to send a puip coiaand. 

F'JTATUSJ returns the I/O status fla^s. 

P.DnTAJ returns the data byte froi the controller. 

P.CATA! NTites a coiiand byte to the controller. 

P.CTS? returns true if it's ok to transmit a coeiand. 

P.RCVROY? returns true if data leaitinq to be read. 

P.REAOY? returns true if the controller is ready. 

P.6ETSYTE waits for a data byte and returns it. 

FJKFLUSH reads any resaining data bytes before returning. 
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0 \ Putp Control <- Cofltunicati 

1 HEX 

2 3EE CONSTANT PI/0 

3 3Er CONSTAHT PSTS 
4 
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5 
6 

7 
8 

9 
IB ; 
II 

12 1 

13 : 

14 : 
15 



1 C0K3TAHT RCVRDY ' • 

2 CONSTANT IKIRDY 
4 COHSTAHT PREADY 

PJTATU35 • ( — n) PSTS INPUT ; • - 

pjfiTAJ (_n) PI/0 INPUT j . . 
P.OATA! < n — 1 Pl/fl OUTPUT ; 
P.CTS? < — t) PJTATUSa XMTROY AND ; 
P.RCVROY? ( — tJ PJTATUSa RCVROY AND NOT j 
P.READY? ( — t) PJTATUS9 PREADY AND ; 
PJETBYTE { — n) BESIN PAUSE P RCVRDY? UNTIL ? 0ATA3 ; 
PJNFLUSH ( — ) BtSlK PAUSE P.RCVROY? MHILE P DATA9 DROP 
REPEAT J DECIKAL 214 218 THRU 
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PHPBUF is used to build puep co«and strings in. First byte is ! ' ' 
count. Also contains the characters returned by the controller 

after a cossand was sent. Look here for results. 
66Ur initializes the PilPBUF 

♦BUF! stores the new character and incrwents the string count. 

Kuripririlin^ Ciidfa ire iyiiufcy. 
P.XKTMAIT flushes the input streaa and mits until it's ok to 

transiit a oen coisand to the controller. 



2 CREATE PHPBUF 20 ALLOT HERE I- CONSTANT NBUF 

3 : flSUF 8 PHPBUF C! j 

5 : ♦BUF! I n ~ ) 28 KAZ PNPBUF DUP Ca U 2BUP SNAP C* ♦ C* • 

4 . . • ' 

7 ; PJHTKAIT { — ) 8EBIN P IXaUSH P CTS? UNTIL : 

'f v^^l»^^^Su ^^^^^^^ 9 : P.RESULT ( - „» 88UF BE6IH P.GETBYTE' DUP Wl 3A «. 

. sisoifies oL, irtiile > ? wans error, le HITKIN UNTIL PHPBUF OUP K ♦ ; 



13 DROP PJESULT 3F » ABORT' pusp coeiand error* j 
14 

15" 
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TESTING KORD 



{I Starts foraatting a double nuiber at the end of PXPBUF. 

1} Ends fcraatting, string is in PltPBUF and addr, count on stack 

>STRN6 converts a double nuaber to a HEI loriat text string. 

♦CNOSTR builds a puap coitand string in PHPBUF given the address 
PCNT initializes cciiand buffer and copies string to it. 
PPARK gets double nuaber out of address and adds string to buffr 
PSEND ends a coaiand string icith a and sends it to the puap. 



\ Piikp - Coaaand Foraatting 
\ : p,c«d. { — an) 1 WPJ). COUNT ; . 
\ : JPU.V p^cad >PUHP. PHPBUF COUNT TYPE 



NBUF PTR ! 
a nl 



(I 

5 ; t> ( — 

6 : >STRK8 ( 

7 ' DECIHAL 
' 8 HEX * 

9 ! 4CK0STR ( 
18 : PCHD ( a 

11 : PPARH ( a 

12 : PSEHO ( ) 

13 DECIHAL 
14 

IS 



2DRflP PTR 9 NBUF OVER - j 

a n) SNAP OVER DABS HEX (t tS SI6K 1) 



an — ) 8 DO DUP CI 4BUF! I* LOO? m? 

— ) 8BUF COUNT. ♦CHOSTR y 

— » 29 >STRH6 ♦CKDSTR j - 
38 ♦BUFi PHPBUF COUNT >PUHP s 



RATE Puap flQH rate in counts per seccnd 
VOL Aflcunt to puop in counts 
&AIK 

ACCEL ^.ccElerstiofl rate ot pusp sotsr in coants/sec/sec 

im ; ■ ' 

f-GLE 

DIRECTION contains the puep direction flag. 



2X6 

0 \ Puap - Variables 
1 

2 2VARIABLE ACCEL 

3 2VARIABLE GAIN 

4 ri^ARIABLE POLE 

5 2VARIABLE ZERO 

6 2VfiP.IABLE RATE 

7 2VARIABLE VOL 
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mm. Acca 2! 

e. 6AIK 2! 

B, POLE , 2! 
232. ZERO 2! 
2809. RATE 2* 
leOC. VCL 2! 



8 \ variable PDIR is defined in task support; 1 ' forward 
KL and HL/KIS set the floH and vcluae variables after converting 9 , 

fro4 the given units to punp counts. IB : fil ( n ~ J DUP PVOL I 0 imz I W VOL 2! : 

II : fiL fil J 

FCRKARD 'and REVERSE set the pursp direction paraneter. 12 : fil/oin (n — ) OUP PRATE ! fl 2BSBa KW RATE 2! 

13 : KL/«IH Dl/fiin ; 

H : FQRSARD ( n — 11 PBIR I ; 

15 : REVERSE ( n — 1 S PSIR i ; 
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SEKCPARX vet5 the address and length of cofifland string, and 
address of a double variable and generates a coapiete pusp 
cc£fiand. Coflsand looks like: 'SP18eB3;'. Refer to puop sanuaU 

These cofisands all set pucp controller variables. 



SETALL sends the necessary variables to,the puap. 



B 
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9 
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\ Punp - 
SEHCPARR 
SETRQU 
SETVGL 
SETACCEL 
; SET8AIH 
SET2ER0 
SETPOLE 



Send Pusp Paraoeters 
{ ap ac n — ) PCflD 



PPAR» F-SENO 



RATE 

VOL 
ACCEL 
6A1K 
ZERO 
PGl£ 



V SP* 

V PR" 



AC 
ZR' 



r PL' 



SENDPARH 
SEHBPARS 
SEKDPARH 
SEH5PARR 
SEKDPARH 
SEK2PARH 



SETALL SETFLOH SETVOL SETACCEL SETGAIH SEHEEO SETPOLE \ 

TEaPKP ( ac — I PCKD PSEHB ; 

P.ERP.OE? t" TP TELLPfi? Pf.PBUF HEX MIJ«BER DECIMAL I AKD 
ABORT" Puep exessive position error" j ' 
! PABQRT r AS' TaLPKP V HQ' TELLPHP ; 
i P WAIT ( - I BE6IH PROCESS.CMDS BUSY? IF PABQRT THEM 



IS P READY? UWTIL P. 



539 



218 



TELLPnP Sends a 2 character puep casiand. 
PABuP.T is an eaergsncy stop, turns the Qotor of4 iacediatly. 
P^«AIT waits for operation cofiplete, aborts if stop coaoand. 
P3TART starts a puep operation. Controls pusp status flag. 
PRESET causes controller to use it's default paraoeters. 
PREVcRSE pusps in reverss directic-n. 
PFORnARS puios in for«=rd direction. 
PDEClrtAL Controller interprets nusbers in decioai foroat. 
FHEX Controller interprets nusbers in Hex foroat ^default). 
PSEP.VO Puts controller in servo'aode. 
POIRECTloa sets the puep direction based on contents of 
OIRECTICH. 

m? sends an entire set of coisflands to start up the puap 

using the current punp paraeeters. 
ISIT.PUMP dees the pusp initialization. 



Z \ Puap - Puop Ccesands 



3 ; 
4 

5 1 

6 : 
7 
8 
9 

10 
11 
12 
13 
14 
IS 



PSTART TRUE PBU3Y ! BS" TELLPHP P.lfAIT 
P OS ' i. V QE' PCHD >STRKG ♦CH33TR PSEHB 



PRESET V RS* 
PREVERSE V OR" 
PfORtfARD 
POECIRAL 
PHEI 
PSERVO 



V DF' 

V DC 
r HX" 

V SV" 



TELLPHP- 
TELLPHP 
TELLPHP 
TaLPKP 
TaLPKP 
TELLPHP 



PDIRECTION PDIR 3 IF PFtfiKARB ELSE PREVERSE TKEK 
PUHP ( - ) PSERVO FHEX SETALL PDIRECTIOS 
IHIT PUHP ( - 1 PABORT PRESET P,OE 5 



P3TART B 



This code is used to wnipuUte the parity of characters that' 
are send to and received frot the Haiilton controller, the 
coewnication protocol for the device requires that the 
jdressiPQ character be send as an odd parity, while all other 
characters wst bs sent as even parity characters. The 
alternate Hay of lanipulating the parity by prcgraiainq the 
UAI^T is not practical for reasons of speed and synchro* 
Ri:ation. 



B \ Hafilton valves: basics an 
1 

2 VARIABLE RDPTR 

3 • 

4 CODE ^EVE^i-PAR ( c 

5 e POP 8 8 AND 6 

6 78 ( JPO, ODD-PAR?) 

7 IF 88 IB 8 lOR 

8 THEH 8 PUSH 
NEXT FORTH 

>ODD-PAR ( c - odd-parity-c ) 
)EVEN-PAR 88 ZQR : 



rd block 



even-parity-c 1 HEX 



9 
18 
11 
12 
13 

M 226 232 THRU 
IS 



OECIKAL 



\ Rest of Haeilton valve words 
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R8UFF is a wrap around receiving buffer, Nhose length lay be 
aodified through changing RBUFF-SIZE. This buffer is filled 
by the CQUECT loop, running under task REMOTE. 

RDPTR, K?*TR, and RCCUNT are used to *aintain RBUFF. The 
first two are a read poiter ariu a Krite pointer intD the 
buffer, and the last one is a count of characters received. 

SBOT is a stall buffer for storing the characters that ite send 
to the controller. 



8 
1 
2 
3 
4 
S 
6 
7 
B 
9 
18 
11 
12 
13 
14 
IS 
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RBUFF+ is an addition word that returns a 'wrapped around* 
result, corresponding to the size of PJUFF. 

PJUFFa gets the nth character of the tost recent unread portion 
of the receive buffer. 

i PJUFF-aEAft clears the first n characters of the tost recent 
unread portion of the receive buffer. 

^ ECHO? returns true if exactly n characters have been received 
at the serial port. 



8 \ Haiilton valves: receive buffer utility words 
1 

2 : RBIH^F-^ ( n ■ * wrappedln^i] ) 

3 ♦ RBUFF-SI2E HOD' 5 

■ 4 . * , 

5 \ : RBUFF? ( n - c ) 

6 \ . RDPTR 3 REUFF4 PJUFF ♦ O ; 

7 . . • 

8 J RBUFF-OEAR ' ( - ) 

9 MRPTR 3 RDPTR ! 
18 8 RCOUNT ! ; 
11 

12 : ECHO? ( 0 - t ) 

13 RCOUNT 8 « ; 
14 

15 



>SKIAL sends a single character to the C0ntrofl!f, Hate 

that this send is done directly to the active serial 
port that is being used by task REKOTE lor character 
CO] taction. This is dene so that RCltOTE can continue 
respondinQ to receive interrupts Nithout any interference. 

CGIiriA^D* stores the chscaters for the couand in SBUFF, 

R^!1ILTQ!{ sends a coecand to the controller. 



e 

I 

2 I 

5 

4 

5 

6 

7 

6 

9 

16 
11 
12 
13 
14 



\ Hacilton valves: cowand 



CQ«KrtK0! 
SBUFF + 
! C! 

-I *im 



( cl c2 ... en n - n ) 
l- SBUFF S«AP OQ 

F:> ; 



f words 



OUP >R 



HAKILTQK i cl c2 ... cn n - ) 
COKSftSD! SBCTR ! SBUFF SBPTR ! 

. CALLLR SET REUFF-CLEAR SEHI)>SER 
Se HS CALLER RELEASE ; 
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IB 
11. 
12 
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14 
15 



'551 

fiV-l contains ths current valvs nuaher 
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B \ Haailton valves: valve variables and utility words 

2 yaRIftBLE RV:! .i- : »^ 

RV-STAT-TABIE contains pairs of status variables ( old and neii .) . 3 



the four valves 

RV-STAT returns the adress of the nen status variable for the 
currently selected valve I RV-# ) ' ^ 

RV-DIFiCTICH takes a position nueber and returns returns a ' 
direction character ( ♦ or - ) for the Hatiltcn coeaaod 
string, the valve Mill rotate either one position counter 
clGCfcNise or one or tNO positions clockHise. The first 
rotation of the valve is alxays clockMise. 



4 : RV-STAT ' « - stat-byte-addr ) ; , / ^ 

5 SV-I a 1- 2t P.V-STAf-TBL ♦ ; 

7 HEl : RV-QIRECTIOH ( pos - direction-character. I 

8 . RV-STAT Ca - . 

9 :. DUP -3 ^ S«AP 9 = Gft 
IB' \ IF .2D , 

11 aSE 26 

12 THEH ; DECIMAL 

13 ' ■ 
14 

IS 
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These are the top level coinands for the haiiltan rotary valve' 
controller. RVAVLE selects a current valve as in the phrase 
3 RVALVE. POSITION selects a valve position corresponding 
to the position neifiers that apoear on the top of the valve 
assBibly, and sends the valve to that position, mj allcMS 
the user to use convention! nufibers for valve position* 
n^trly -i- for up, -2- for right, -3- for down, and -4-' for 
left. The folloifing are exaiples of usage: 

i RVALVE 3 FORI = 1 fiVALVE 7 POSITION 
: fIVALVE 4 PORT « 2 RVfiLVE 18 POSITICH 
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\ Haiilton valves: valve driv 

RVALVE ( valve-l - ) 
fiV-l ! ; 
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: POSITION ( Ha»ilton-f-pos - ) >fl 

C HEM 3B )OC0-PAR RV-» ? 30 ♦ >£VE}<-PAR 
i ftV-DIRECTIQK >EVEK-PAft I 3« f )C;EII-PAR 
0 >£VEN-PAH 5 HAMILTON 
R) RV-STAT C! 
C OECIKAL ] KS 
8 ECHO? II ECHO? OR NOT 
ABORT* Hatilton Error- B; 

PORT ( norsal-l-pos - ) 
I- 3 t If POSITION ; 
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IHIT-HA.1-CQKK is called on powerup to initialize the haiilton 
controller. 

INIT-HAitlLTOM initialises coMunicatioo «ith the controller 
and puts the valves into their default positions. 



\ Haiilton valves: initialization 

ihit-hah-cqkm 

C HEX] 3B >ODD-PAR 3B >EVEH-PAR 0 >EVEN-PAR 
3 KAniLTON 

C DECIMAL 1 488 RS 3 ECHO? 9 ECHO? OR HOT 

ABORT" Haiilton power error* 
C HEX ] 30 )ODD-PaR 47 >EVEH-PAR D >R'EK-?AR 
3 HAHILTON 

C CECIflAL ] 256 «S & ECHO? NOT 

ABORT' Haiilton in:t error' ; DECIKAL 
IHIT.HAniLTOH ( - ) 
503 NS INIT-HAH-COKK 
5 i 00 

I RVALVE RV-OEFAULTS I I- + C3 ?DUP 
IF PORT 2883 KS T1€N 
LOOP ; 



MS-K3B and r.X-LSB contain the nuibers for the relays that 
are used to control the fixing power. 

HX-rlt contains the nudber ot the relay that turns the 
iixer on or of^. 

1/4 is used to set KX-«SB to 8 and KX-LSB to 8. 
!/2 is used to set HX-«3B to B and M-LSB to U 
3/4 is used to set KX-KSB to 1 and MX-LSB to 9. 
FULL is usrd to set KX-KS9 to 1 and KX-LSB to I. 
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e \ Rixer operations - constants, load block 



18 C0K3TAKT flX-SSB 

19 CONSTANT KI-LSB 
28 CGKSTAKT HX-f.LY 

8830 . CQ?<STfiHT 1/4 

8081 tONSTAHT 1/2 

8188 C0N5TAHT 3/4 

8181 CQKSTAHT FULL 



DECIMAL 

235 236 THSU \ Rest of iixsr operations 
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8 \ Kixer operations - basics 



SET-PKP.-BIT turns one of the power control relays on or 
off as needed. 

HIX-CYCLE turns the fixer on and off for one coeplete duty 
cycle. If the duty oercentage is 188, then the eixer 
is left on. 



1 

2 ! 
3 
4 
5 

6 ; 
7 
6 
9 

18 
11 
12 
13 
14 
IS 



SET-PWR-BIT ( on/off rly* - ) 
SWAP 2SS AKD 

IF RELAY (OK) aSE REUY (QFFJ THEM 5 

HIX-CYaE ( n - ) 
KXBflTY a IB I 

KX-8LY PaAY (OH) DU? DELAY 
1888 SKAP - ?BUP 

IF HX-RLY REUY (OFF) DEUY THEM 5 



S57 

IDUTY detertines the duty cycle percentage for the fixing 
operation. 

POKER detertines the power setting of the lixer. 

SECOKSS and SECQKD detereine the aixer's duration of 
operation. 

Ttll activates the liier using the current paraieters found 
in the «xer variables MXDUTY, iaPMR, and HXTIKE. 
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1 : 

2 

3 

4 : 

5 

6 

7 : 
3 

16 : 

11 

12 

13 

14 

15 



\ Kiser operations - top level operations 
IDUTY ( n - ) 
RXDUn i ; 

POSER In-) 
KXPKR 1 5 



SECCKDS ( n - ) 
KXTIKE ! ; 



SECONO. SECOKBS ; 



nix ( - ) 
1 MXBUSY I 

KXPWR 8 OUP X nX-«SB SET-PKR-BIT MI-LSB SET-P8R-BIT 
KXTIKE 8 e DO HIX-CYCLE LOOP KX-RLY RELAY (OFF) 
KX-WSB RELAY 40FF) hX-LSB RELAY (OFF) 
3 RXBUSY i B; 
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Rsad the year and set the FORTH svstei year. 
- Read the tiie and set FORTH' s clock. 

k 

The MONTHS array is used to convert the current day and tonth 
• into FQRTH's internal date forut. Refer to screens 38 and 
31 in the Level 3 listino. 

ScTCATE oets the current day and ionth (roc the battery clock 
on the AST card and sets FORTK's date. 

lnitiali:e FORTH's day, date, and tiae froo the AST 

card doclc. 
Saiple prep 



12 




8 \ Clock - Set FORTH'S tiie and date 
I 

2 

3 : SETYEAR W 1932 ♦ A.O. ? \ ' 

4 : SEni«E HR? 180 I NHJ ♦ 8 FST j 

5 

6 CREATE MOKTHS 

7 8 , 3 r 31 , 59 , 98 , 128 , 151 , 181 , 212 , 243 , 273 . 

8 384 , 334 , 367 , 
9 

13 : SETDATE 0Y3 21 KOHTHS ♦ 9 SB OVER < LEAP 3 I ♦ • 

11 JAKQ 9 i > HOH ; 

12 

13 SETYEAR SETTIME SETDATE 

14 FORSn CLtC? 
IS 
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These definitions are for the AST SixPac Pius card Mith the 

Ricoh Pm^SCIS dock chip. 
CLK3 reads a value froa one of the AST card dock registers. 



Rs2d the Yezr 
Konth 
Cay 
Hour 
Hinute 

Second froi the Battery clock. 



8 \ AST Card Clock Calender words * For RICOH RP5C1S chip 

1 \ ( for neMer AST Six Pack Plus cards) 

2 HEX 

3 : CLK3 ( a — n ) 2C9 01fT?'i;T 2C1 IKPUT 8F A»0 ; 

4 DECIKAL 



II 
12 
13 
14 
15 



: YR} 

: m 

: m 

! KRa 

: HH» 

: SC9 
EXIT 



a — n 1 

— yr i 

— 10 

-dy 

— hr 

— M 

— sc 



Sti? aX9 18 
12 206TS ; 
18 2D6TS ; 
8 2SeTS ; 
5 236TS ; 
3 206TS ; 
1 2CGTS ; 



I S'h'AF 1- ViJH^ * 



14 

8 \ AST Card Clock Calender Nords - For Kational RKS8167A chi 

1 \ (for older AST Six Pack Plus cards* 

2 HEX 

3 : atC3 ( a — n ) 2CB + IK7UT ; 

4 DECIKAL 

5 : CLVAL (a — n) CLKa DUP 1& / 18 t SHAP 15 A«0 ♦ ; 

6 : YR3 ( ~ yr ) 18 SB M 

I im ( ™ ao ) T ttVAL ; 

8 : 0Y3 ( ~ dy ) h aVAL ; 

9 : HR9 ( — hr ) 4 CLVAL ; 
18 : KK3 ( ~ an ) 3 aVAL ; 

II : sea < — sc ) 2 aVAL ; 
12 EXIT 

13 
14 
IS 
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•fiUIT is a user variable in each task that 

to exectttte Mhen an error occurs. 
Tha error handler for each task should process the error if 
possible: saving state inforiation for debusing (like SCR, 
)IH, etcJ; and re-enter the f.ain task loop to alloii recovery. 
This Mill prevent systss lockups on errors. 
Initializeil to GUIT for now (norial FGRTK r/stei error response) 
EKRORS is executed when ftBORT is called. It «ets the error 
routine address for this task and starts interprstino it. 
Kodify the ABORT routine in FORTH to vector to ERRORS instead of 
QUIT. 

SYSTQl HOTE: If the FORTH systei is ever recospiled, the ABORT 
rofitine itself should be eodified to isplescnt the above 
behaviour. It is not oood practice to poke in cods chanoes 
after the systes is up and runnino. 



Bntains the address 8 \ Syste. Error Handling 
I 
2 
3 



QUIT 'OUIT ! . 
QUITS 'QUIT J >R ? 
QUITS ' ABORT 7 ♦ ! 



' (aborf) "ABORT ! 
ABORTS ■'ABORT 5EUCUTE j 
8 • ABORTS 2- * abort* 2* \ 



CODE RESET U R KOV V dear the return stack 
S8 U) S nev \ dear paraieter stack 
8 Q SUB « PUSH \ put a safety 8 on stack 

HEXT 

\ copv of definition in screen ?B level « listing. 
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I 
2 
3 

5 
6 
7 
6 
9 
le 
II 
12 
13 
14 
IS 



3SQ 
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1 
2 

Z 
4 
5 
h 
7 
B 
9 
18 
11 
12 
13 
14 
IS 
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IB 
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These definitions are the saie as screen 77 in FORTH level 
3 listing, except that FUPDATE is used in place of UPDATE 
Nhen NritinQ to a disfc file. 



8 \ File Editor - Line k character operations 
I 67 :K LKQLO CLAD 'LIME C/L CKOVE ; 



H I - «COK LOOP 
BLOCK-; 



THEN 



2 : (OUPL) LINES ?DUP IF B DO 

3 61 !K IH5L (OUPL) LIHE CLRL 

4 bZ :K DUPL <DUPl> .BLOCk"; - 

5 64 :IC SPLIT LIMES IF (DUPL) -LIKE CLAD C/L ♦ 

6 COL BLANK. LINE ^L .BLOCK Li ! THEN ; 

7 62 !K XL LKOLD LIKES ?CUP IF 0 DO LIKE I * U KLUi> LOOP 
6 THEN L/S LAD C/L BLANK .BLOCK ; 

9 83 :K XC <A09R DUP CUP H 3HAP COLS I- CKOVE 
SO 6L SNAP COLS I- ^ C! FUPOATE .LINE ; 

11 : INSERT ( c) DUP ENIT NODE C9 IF COLS I- IF <AODR DUP 

12 DUP U COLS 1- <CnOVE C! *Z FUPDATE .LIKE ELSE <ADDR CI 

13 THEN ELSE <AODR C! ♦C VM FUPDATE ; 

14 : xOELETE -C 60 NODE Ca IF XC aSE BL <AODR C! FUPDATE 

15 SPACE THEN : 



34Q 
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eOL and PUT are the sase except for FUPDATE. 



.NODE displays the current editing lode on the bottoi linfof 
editing HindoN 



8 \ File Editor - Display function keys 

1 79 :K EOL CLAD C/L -TRAILING DUP IF 1> THEN 63 KIN CI ! 

2 DROP;- 

3 : 7VIS1BLE ( c - c t) OOP 31 127 NITKIH ? 

4 63 :K PUT C/L 8 DO 'LIKE I * CJ 7VISI3LE NOT IF 



5 
6 
7 
8 
? 
18 
U 



2P.> 2DR0P BaL EXIT THEH 0.«}? LOOP 
KOBE C3 DU? IF (DUPL) THEN 'LINE CLAD C/L CJSOVE FUPDATE 
IF .BLOCK aS£ e CI ! 80. .LIKE THEN ; 

.NODE 17 38 TAB KOBE Ca IF .* Insert * 
ELSE Replace* THEN ; 



XDISPLY types the contents of the nth screen of the current file 12 : XDISPLY ( serf) PAGE CaiSTI .MODE ; 

13 

XEDIT is called Hhen leaving the editor to close the file, put 14 : XEDIT FttOSE NORK HINDON 
the HiftdcN bact in order, and rebuild the current screen. 15 'SCREEN 8 6 'SCREEN ! EXECUTE : . 
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Escape sets the exit fla^ so ve'Il leave the editor. 



(edit) is the editor coeaand interpreting loop. It gets key 
strokes, updates the cursor position, and executes function 
keys yntil the exit flag is set 

>EDIT throi« 2 return addresses away off the stack and reenters 
the editing loop. 



3 \ File Editor - Coenand Irrterprster 

1 ^ ; CASE ( n n - n 8, t) OVER - IF 8 aSE DROP I THEN 

2 : INSERTION ( c) ?VISIBLE IF INSERT 

3 aSE 13 CASE IF ( Return) 8 CI ! *l 

4 ELSE 12 CASE IF 

5 aSE 89 CASE IF 

6 aSE 133 CASE IF 

7 aSE 14 CASE IF 

8 THEN THEN THEN THEN im THEN ; 

? s FKEY ( - k, k -I) KEY 'KEY Ca 58 > IF ( Function key) 

18 DROP 'KEYC8-1 TIEN; 

11 : (edit) ( blkl) HONE XDISPLY BEGIN 60 

12 ^CURSOR FKEY -CURSOR DUP 1* IF INSERTION 

13 aSE DROP FUNCTION THEN EDXIT 9 UNTIL ; 

14 CODE >EOIT ' (edit) 2^ I I NOV 4 1ft ADO NEXT 
IS 



( Bfcsp) xDELETE 
( Tab) iC ♦C 4C 

( ESC) TRUE EDI IT 
( PrtSc) CHOICE 
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cant do an e»pty-buflers nithout loosing directorv and BfiT 
if.»orftalioD too. Solution is to Copy the existing file 
to a 'mt-BAK' file, edit that one, and just dsUte it if 
the user Hants to forget any changes. 

♦a (the plus function key) is suppossd to flip between s screen 
and it's shadow or docusentation block. In FORTH, the 
convention is to have docusentation blocks a fixed offset 
above source blocks (typically 1 drive hioher so that source 
and docuaentation are on seperate drives). Hoh should 
docusentation blocks be handled? Perhaps a different file type 12 
Khere the source code would be in •xyrabc.txt" and it's shadow 13 
Nould be in "xyiabcdoc*. This aeans we need eultiple open • U 
files, which the file systea doesnt currently support. 



\ file Editor - Function keys 
( Key S9) ' FUISH 59 'FUKCTIOH ! 

\ 6G :K RECALL MPH-BUFFERS 3 PQ .>EDIT 



73 :K UP 1 

81 :K mn 

\ 78 :K iQ 

82 :IC /mi 



pg >£DIT ; 
-I pg >E1>IT ; 
(Q) >£DIT i 
• KQDE CS 0» KQDE C! 



•KQDE ; 



9 



9 H KEYS ♦ C! 



IS 



EtKElW displays the editing coiaands in the selection nndow. 



FEDIT is the isin entry point to the editor. It trys to open 
an existing file and if it is not found, it prospts before 
creating a new file. 



22 

e \ File Editor - tenu Display, Entry point 

1 : EDHEKU ( - ) 

2 SaECTIQS BOX (PAGE) 

3 COriKAHDS: : ' 

4 Fl: FLUSH F2: RECAa F3: SFP£Afi • 

5 .-FA: DEL LIKF5: W LIKF&: SPLIT F7: DEL ESLF9: Oa EDS' 

6 F9: HOLD FlSi PUT ESC: EXIT ; 
7 

B : IFEDIT) STAT-OFF KEHLi-OFF 

. 9 FALSE E5X1T ! ES«EWJ EDIT1K5 mm 8 (edit! lEDIT | 
IB 

11 : FtOIT QP£«? f Enter Filenase: ' FILEHAIS !F I* OUP FQPEK 

12 ' IF f Create a new file? (Y/N)* YES? KQT 

13 IF DROP EXIT THEM FCF.EATE IF 

14 I' Create Error" -EPiiGR EXIT " TH£H 
. 15 El^E DROP THEK (EEDIXI THEK 5 
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1 
^ 

3 
4 
S 
6 
7 
B 
9 
18 
U 
12 
13 
14 
IS 



SET-KP«3S sets lethod lesssge to the address of in line 
string* 

j-r Fr;?i5 srt= function arssa-^e to the address of in line 
string. 

BRKT-STR cocpiles a sharp braket dslijited «str...» 
string froi the input streai into the dictionary. 



B \ Prograaiable aethod and funcnVcessages - basics 

2 : S£T-f1P«SS ( - ) 

3 I ?R5 «P«S6 ! ; 
4 

5 : SET-FPHSB ( - J 

6 i m FPN56 ! ; 
7 

8 ; BRKT-STR 

9 -1 >iH ^1 63 VQRD DROP 62 STRIN8 ; 
IB 

11 

12 23B LOnG \ Kessage turnoff coaeands 
13 

IS 



559 

«ES3nSE coapiles a aessage and aakes it the aethod aessage at 
execution tiae. 

KcSSA6E-0FF turns off the aethod aessage, if any. 

FfiESSAGE CQflpiles a aessage and aalces it the function aessage 
at execution tiae* 

F«ES3A6£-iJFF turns off the function eessage, if any. ^ 
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B \ Prograaaable eethcd and function lessagss - top level 

2 : MESSAGE ( - ) 

3 COMPILE SET-HPnS6 BRKT-STR ; IHIfEDIATE 

5 : KESSA6E-0FF ( - ) 

6 0 HPHSG ! ; 
7 

8 : FHESSASt ( - ) 

• 9 COMPILE SET-FPHS6 BRKT-STR : IMMEDIATE 
18 

11 : FKESSfiSE-OFF ( - ) 

12 e FPMS6 ! ; 
13 

14 
IS 



560 
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B 
1 
2 
3 
4 
5 
6 
7 
8 
9 

le 

u 

12 
13 
14 
IS 



RV-KAKE-TBL is a table oi pointers to strlni 
trie naaes *or the rotary vavle positions 



It contain 



CO-KAKE-TBl is a table of pointers to strings that contain 
the naies for the contact device positicwis. 

T«es5 load ccesanJs coftpils ri=H strings and put their 
addresses in the given table. 



\ Systei configuration tables^^ad screen 
241 LOAD \ String table generation wrds 



CREATE RV-KAflE-TBL Z2 ALLOT 
CREATE CE-KinE-TEL 96 ALLOT 



?;V-KAr.E-TBL • 
CD-HARE-TBL 
CD-Kft«£-TBL 4S ♦ 



3S3 LOAD \ Rotary valve naws 

381 LOAD \ Contact device functions l-ir 

332 LOAD \ Contact device functions 13-24 
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I3-PTR is a pointer to the location at which we coipile the 
string's address. It serves as an index into a table. 

IS-LDJ is the required length of the strings that are being 
compiled. 

'C0XF15URE acd CHARACTER sst IS-PTR and IS-L£« in a clean 
syntax. Ses the l^t note in this bloc!:. 

C3TRIK6 cosailes a string end places its address into a table, 
advancing IS-PTR for the next string. 

STRIKGS coipiles the required nuiber of strings. 

The syntax of usage is: COtJFlBUSE n i CHARACTER STRINGS. The 
adress of the table is given on the stack before starting. 



241 

0 N Configuration tables - creating string tables 

1 VARIABLE IS-PTR 

2 VARIABLE IS-LEM 
3 

4 : cor^ieuRE 

5 IS-PTR i 5 

6 : CHARACTER 

7 IS-LEK ! 5 

a 

9 : CSTRINB 

IB -2 ALLOT -l >1H +1 60 KORO DROP 

11 HERE 2* IS-LEM 5 ELASK 42 MRD 

12 IS-LEH a OVER C! IS-PTR 3 I 2 IS-PTR ♦« 

13 IS-LEH 3 U 2+ K-LOT ; 

14 ; STRIKES 

15 0 00 CSTRIHS LOOP ! 
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6 




I 




2 




3 




4 




5 


7 


h 




7 


$ 


8 




9 




IB 


* 


tl 




12 




13 




14 


IS 
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\ Configurition screen for rotary valve naies 
C0KFI6URE 16 13 CHARACTER STRIK6S 



valvef ! 
1 

2 ) 

3 I 

4 ; 



6 
7 
8 
9 

18 vilvei ; 

12 1 J 

13 2 : 

14 3 I 

15 4 I 



Port I] 



Port 12 



<Fill Sprayer > 

< Solvent 12 > 

< > 

< > 



Port 13 



< Sdiple Line > 

< LC Bypass > 

< > 

< > 



< To Kaste > 

< To LC Loop > 

< > 

< > 

Port H 



< SaspJe Loop > 

< Solvent 11 > 

< > 

< > 
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8 \ ConHouration screen for contact 
I COKFIGURE 24 28 CHARACTER STRINGS 



2 cdl 

3 



4 

S 

7 
8 
9 

10 
11 
12 
13 
14 
15 



I 
2 
3 
4 

e. 

h 

7 I 

8 i 

9 I 

10 I 

11 i 

12 J 



OFF function 



dsvicB functions 1 thru 12 
OH function 



<l:Saaple Loop Bypass) 
<2:Saiple Loop Bypass) 
<3: Manifold - Cup > 
<4: Puip - Hani fold > 

< > 
<hi Fill Gas Reserve > 
<7:Pressuri2e Sprayer) 

< i 



< 
< 

<n: 
< 



Vent Cup 



<1: 
<2: 
<3: 
<4: 
< 



Saipie Loop 
■ Saiple Loop 

Cup To Haste 
6as To Manifold 



<6:Eipty 6as Reserve > 



<7: 
< 
< 
< 

<11: 
( 



Spray 



Pressurite Cup 



> 
> 
> 
> 
> 
> 
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8 \ Configuration screen for contact device functions 13 thru 24 

1 mnrnt 24 28 character strihss 

2 cdl ; OF function o« function 

3 ■■ ■ — ■ ■■- 

4 13 J < 

5 14 : < 

6 15 : < 

7 16 : < 
B 17 : < 

9 18 : < 



U 28 t < 

12 21 ; < 

13 22 J < OFF 



< 
< 
< 

<16:LC Fill Position 
<17: LC Inject 



> < 

18 19 J < > ^ 



< 
< 

( ON 



14 23 I ( OFF > < OH 

15 24 J < OFF > < OH 
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«« HELP FOR STATUS SCREEN »» 



B 

1 

2 This is the Systei Status Screen. The display shws the 

3 current state of each systee eleient. 

5 Fl is the Start/Stop key. Use it to control aetbod eperatioa. 

6 F2 is the Paase/Continoe key. Use it to suspend a run, 

7 F3 allOHS a direct co«and to be entered (for debugging onlyJ- 
e F4 allQ«s exiting back to the FCPJH systea, 

9 Kim LOCK causes the current screen display to be copied to the 
IB printer. 

U <- -> Keys aove the coatand selector across the aenu. 

12 ♦ Causes the currently selected cowand to be executed 

13 - or ESC Exits the current Screen. 

14 Type the first character of tlie cosiand nate to execute it 

15 E Hit Any Key to Exit the Kelp Screens 3 
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e 

r This is second status help screen. 

2 

3 

4 

5 

6 

7 

8 

9 

18 

11 

12 

iZ 

14 

IS 



] This is third status help screen. 

2 

3 

4 



6 
7 
8 
9 
18 
11 
12 
13 
14 
15 
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0 

1 This is fourth status help screen. 

2 

3 



h 
7 
8 
9 
18 
11 
12 
13 
14 
15 
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8 «« HELP FOR FILER SCREEM »» 

1 

2 The filer provides sose utility couands for lanipulatin? disk 

3 files. Files can be copied, deleted and renaied, and a new disk 

4 can be foriatted. 

5 The directory listing of the disk is displayed. If there are 

6 tore files than can be shown on the screen at one tiie, you can 

7 use the page up or page dom keys to see thei. 
6 

9 
18 
11 
12 
13 
14 

15 [Hit Any Key to Exit the Help Screens 3 



I 

2 
3 
4 
S 
& 
7 
8 
9 
IB 
11 
12 
13 
14 
15 
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8 «« HELP FOR PRIIffER SCEEEH »» 

I 

2 The printer utility allOHS files and disk directories to be 

3 sent to the printer. 
4 

5 
6 

7 . 
8 
9 
10 
11 
12 
13 
14 

IS C Hit Any Key to Exit the Help Screens 3 
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1 
2 
3 
4 
5 
6 
7 



? 
IB 
U 
12 
13 
14 
IS 
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i Sdiple Prep Task definitions ) 

389 TERttlNAl PSTATUS 
PSTATUS COWSTRUCT 

2«S8 immi CONTROL 
'CCKTROL CQKSTRXT 

: HALT ACTIVATE STOP ; 

» \ 6387 PSTATUS 'TYPE HIS ! 
\ 'TAB ? PSTATUS 'TAB HIS ! 
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^^^^^ I' H M 



30- 



BAR CODE 
REAOEFl 



32- 



NETWORK 

INTERFACE 

CONTROLLER 



34- 



SAMPLE- 
LOADER 



I 



28 



36- 



ELECTRONIC 
SCALES 



38- 



PUMP 
INTERFACE 



42— 



RS232 
INTERFACE 



40 



VALVE 
DRIVERS 



L 



44 



MIXER 
INTERFACE 



55 



MIXER 



48 



ANALYZER 



20 



CPU 



I 



22 



MASS 
STORAGE 



AUXILIARY 
INTERFACE 



-46 



KEYBOARD 



DISPLAY 



FIG. 1 



REVERSIBLE 
PUMP 



FIG. 2 



FILTER 




TO ALL 
CONTROLL- 
ABLE 

ELEMENTS 

' CONTROL/' 
I USER 
' INTERFACEI 
SYSTEM 

20^ 



^50 





SELF 






TEST 












USER ID 






REQUEST/ 






VERIFY 








STORE 


USER 






ID 





f5Q 



DETERMINE 

ACCESS 
PRIVILEGES 



L 



58 



DISPLAY 
OPTION MENU 



L 



64 



DISPLAY 
'NO ACCESS" 
MESSAGE IF 
USER DOES 
NOT HAVE 
REQUIRED 

ACCESS 
PRIVILEGE 



^60 



VERIFY ACCESS 
PRIVILEGE FOR 
SELECTED OPTION 








BRANCH TO 
ROUTINE FOR 
SELECTED OPTION 







FIG. 4 





CREATE, MODIFY OR 
DELETE AN OPERATION 
SEQUENCE 



66 



PRINT A HARD COPY 
OF SEQUENCE THAT 
HAS BEEN PROGRAMMED 



11 


yr68 


LOAD A PREDETERMINED 
SEQUENCE 


I 




PRINT A DIRECTORY 
OF ALL METHODS OR 

SEQUENCES 






START THE SELECTED 
SEQUENCE 






DISPLAY SYSTEM STATUS 




1 


PRINT THE SYSTEM 
STATUS 




±_ i 1 


CHANG 
PARA^ 


E SYSTEM DEFAULT 
rtETERS 



V 

GRANT 1 
TO VARI 
AND RE 


JSER ACCESS 
OUS VALVE 
LAY CONTROLS 


1 




CREATE NEW SYSTEM 
FUNCTIONS 






PRINT A REPORT 






CHANGE THE PRINT 
PARAMETERS 




A f _ 


DISPLAY SYSTEM OPTIONS 




/-90 
t 1 


USE PRINT MODE 






GRANT ACCESS TO 
SYSTEM FUNCTIONS 



FIG. 5 



A 

i 



HIGH 







NAME SEQUENCE 

TO BE f=ROGRAMMED 




^102 


SELECT FIRST HIGH 
LEVEL COMMAND 




ri04 


PROMPT USER FOR 
PARAMETER VALUES 




^106 




LAST COMMAND? 



NO 





YES 

, ^108 


STORE SEQUENCE 






RETURN TO 
MAIN MENU 



I 



94 



HIGH LEVEL 
OR 

EXPERT LEVEL? 




r 



96 



DISP 
"NO A 

MESS 


LAY 
CCESS" 

;age 






RETURN TO 
MAIN MENU 



SELECT NEXT 
HIGH LEVEL 
COMMAND 



112 



PROMPT USER 
FOR PARAMETER 
VALUES 



YES, 



114 



LAST COMMAND? 



NO 



EXPERT 



NAM 
SEOU 


E 

ENCE 




, /-IIS 


SELECT 
EXPERT 

com 


RRST 
LEVEL 
1AND 



120 



PROMPT USERS FOR 
PARAMETER VALUES 



YES 



122 



<^DONEP y 



NO 



SELECT NEXT 
EXPERT LEVEL 
COMMAND 



YES 



[ 



r 



126 



<^DONE? y 



NO 



FIG. 6 
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